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immediato esame di un gruppo di dati 


GIOCHI AL COMPUTER 9 


LO SVILUPPO DI UN’AVVENTURA 

264 

La prima parte di una serie dedicata al completo sviluppo 
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VISUALIZZARE 
FATTI E CIFRE 


■ A CHE SERVE IL PROGRAMMA 

■ IMMISSIONE DELLE INFORMAZIONI 

■ CORREZIONI DEI DATI 

■ DISEGNO DEL GRAFICO 

■ RIDUZIONE IN SCALA DEGLI ASSI 


Per un’analisi istantanea, basta 
immettere i dati nel computer 
e osservare la loro trasformazione 
in un colorato istogramma 
dall’aspetto professionale 

Nella pubblicità di computer per applica¬ 
zioni commerciali, sono immancabilmen¬ 
te presenti complesse rappresentazioni di 
dati, tabulati sulle vendite, sulle scorte, e 
via dicendo. Questo genere di informazio¬ 
ni trova la sua migliore presentazione in 
forma di grafici, molto più facili da com¬ 


prender a colpo d’occhio. Tracciare grafi¬ 
ci a mano è un lavoro lungo e tedioso, 
mentre un computer professionale eccelle 
in questo campo, producendo istantanea- 
mente immagini colorate. Tuttavia, que¬ 
sto non è un campo limitato solo ai grandi 
apparecchi, ma adatto anche per piccole 
applicazioni pratiche con gli home compu¬ 
ter. Tutti quelli qui previsti, tranne il Vie 
20 e lo ZX81, hanno possibilità grafiche e 
matematiche capaci di affrontare questo 
compito. 

Il possessore di uno home computer ha 
raramente a che fare con le grandi masse 


di informazioni che anche piccole attività 
commerciali riescono a produrre, ma non 
per questo mancano occasioni per sfrut¬ 
tare utilmente il computer. Per esempio, 
un grafico relativo al bilancio domestico 
può risultare utile per valutare l’anda¬ 
mento di tutto un anno: si è speso di più, 
per il software del compuer (o per i gior¬ 
nali, gli svaghi e la macchina), in autunno 
o in estate? In quale periodo il risparmio 
ha superato un certo livello e per quanto 
tempo? 

Oltre a queste applicazioni di tipo eco¬ 
nomico, ci sono svariati argomenti di in- 
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teresse generale, oppure temi e cifre rela¬ 
tivi a un hobby, da analizzare e rappre¬ 
sentare. 

Questi argomenti vanno, per esempio, 
dal numero di presenze in un locale pub¬ 
blico all’analisi climatica dell’anno. Una 
raffigurazione grafica è altrettanto utile 
per i risultati sportivi o per valutare l’am¬ 
pliarsi di una collezione. 

Il semplice programma qui presentato 
permette di preparare rapidamente la 
rappresentazione visiva di qualsiasi stati¬ 
stica, rispètto a un intervallo di tempo. 
L’arco massimo di valori che il program¬ 
ma può coprire dipende dal computer usa¬ 
to. Dragon e Tandy sono limitati entro 
+ 99 e - 99; lo Spectrum, più o meno, fi¬ 
no a un migliaio, mentre i computer 
Acom e Commodore manipolano numeri 
di ogni grandezza: unità, decine centina¬ 
ia, migliaia o anche milioni, se i nostri 
conti lo richiedono. 


USO DEL PROGRAMMA 


Impartendo un RUN, viene visualizzato un 
‘menu’ o lista di opzioni. Nel selezionare 
l’opzione per immettere nuovi dati, si è 
invitati ad associare un nome a ciascun 
asse, che poi apparirà sul grafico. Nell’in- 
trodurre questi nomi, si faccia attenzione 
a non confondersi tra i due assi: il numero 
di barre, destinate ai mesi, agli anni o a 
quel che sono, viene disegnato sull’asse x 
e il valore delle barre, siano lire o altre 
unità, viene riportato sull’asse y. 

Viene poi chiesto il numero di barre da 
tracciare. Il numero massimo, di nuovo, 
dipende dal computer usato, o meglio dal¬ 
le dimensioni del suo schermo grafico. 

Per esempio, lo Spectrum può disegna¬ 
re al massimo 25 barre, Dragon e Tandy 
fino a 26, il Commodore 64 fino a 30. Gli 
Acorn sarebbero in effetti capaci di dise¬ 
gnarne quasi 200, ma il limite pratico è di 
circa 80: oltre questo, le barre sottili sa¬ 
rebbero irregolari o troppo fini per essere 
visibili. Infine, viene chiesta l’immissione 
dei dati: accanto al numero di ogni barra 
occorre digitare il valore corrispondente, 
che può essere positivo o negativo. Su 
Dragon e Tandy questi valori possono an¬ 
dare da - 999 a 999; sullo Spectrum da 
-1000 a 1000; sugli Acorn e il Commodo¬ 
re da - IO 5 * a 10 J ». Se con lo Spectrum, il 
Dragon e il Tandy i dati escono dalla gam¬ 
ma consentita dal programma, l’ovvio ri¬ 
medio è riportare i valori in unità di centi¬ 
naia, migliaia, milioni o. superiori se ne¬ 
cessario. 

258 Terminata l’immissione dell’ultimo va¬ 
lore, ricompare il menu e si può scegliere 
se correggere i dati (per cambiare valori 



immessi in modo incorretto) o visionare il 
grafico. Se si sceglie la correzione, o i va¬ 
lori saranno visualizzati a turno sullo 
schermo (Commodore e Acorn), oppure 
verrà chiesto il numero della barra da cor¬ 
reggere (Spectrum, Dragon e Tandy). Chi 
usa il Com modore d eve premere qualsiasi 
tasto meno I RETURN I per lasciare un valore 
inalter ato e pas sare a quello successivo, 
oppure I RETURN I seguito dal nuovo valore. 
Chi ha un Acorn prema la barra spaziatri¬ 
ce e chi ha uno Spectrum, un Dragon o un 
Tandy segua le istruzioni che appaiono 
sullo schermo. Quando si è soddisfatti dei 
valori, si selezioni l’opzione per visionare 
il grafico. Con gli Acorn, si ha una sola 
possibilità di grafico, disegnato quasi al¬ 
l’istante. Sul BBC compare il fattore di 
scala (per esempio x 1000) per il quale 
moltiplicare i valori sull’asse y. Poiché ta¬ 


le scritta compare sulla prima linea sopra 
l’asse y, su alcune TV può non apparire. 
Per ovviare all’inconveniente, si digiti 
*TV255 1 RETURNI prima di dare il RUN, otte¬ 
nendo un abbassamento dell’immagine vi¬ 
deo corrispondente a una linea. 

Gli utenti di Dragon, Tandy, Spectrum 
e Commodore possono scegliere tra un 
grafico in scala e uno a schermo pieno. 
L’opzione in scala visualizza il grafico con 
le dimensioni sull’asse y arrotondate a un 
massimo di dieci, cento, mille ecc., secon¬ 
do il valore massimo dei dati e il grafico 
può non riempire tutto lo schermo. L’op¬ 
zione a tutto schermo disegna il grafico 
sull’intera area dello schermo, ma visua¬ 
lizza gli effettivi valori dei dati (non in 
scala) sull’asse y. L’Acom visualizza sem¬ 
pre un grafico a schermo pieno. 

Per chiarezza, le barre disegnate dai 
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micro dell’Acorn, del Commodore e dello 
Spectrum sono separate da spazi o barre 
colorate. Non è possibile far ciò sul Dra- 
gon né sul Tandy, perciò le barre sono co¬ 
lorate alterantivamente in azzurro e gial¬ 
lo per valori positivi e in rosso e arancio 
per valori negativi. 



10 LET g = 0: POKE 23609,20: POKE 
23658,8 

100 BORDER 7: PAPER 7: INK 0: CLS 
110 PRINT BRIGHI 1; PAPER 3; INK 7; AT 
4,9;“nonpnznoonNDO" 

120 PRINT BRIGHI 1;AT 7,6;“D1:-D 
IMMISSIONEDDATIDDD” 

130 PRINT BRIGHI 1;AT 9,6;”D2:-D 
VISIONE/MODIFICA DATO” 

140 PRINT BRIGHI 1 ; AT 11,6; "□ 3 : - 


□ GRAFICO □□□□□□” 

145 PRINT BRIGHI 1;AT 13,6;"D4:-D 
GRAFICO SU SCHERMO INTERO” 

150 PRINT BRIGHI 1; FLASH 1; INK 2; AT 
16,9;”DQUALE OPZIONED” 

160 IF INKEY$ = “” THEN GOTO 160 
170 LET a$ = INKEYS: IF a$<“1” OR a$ 

> “4” THEN GOTO 160 
175 IF a$< >“1” AND g = 0 THEN GOTO 
160 

180 GOSUB VAL aS*1000: GOTO 100 
500 REM ** ROUTINE DI INPUT NUMERICO" 
510 INPUT (w$); LINE a$: IF LEN a$ = 0 
THEN GOTO 510 
520 FOR j = 1 TO LEN a$ 

540 IF (a$(j) > ="0” AND a$(j)< = 

“9”) OR a$(j) = ".” OR a$<j) = 

THEN NEXT j: LET v = VAL a$ 

: RETURN 
550 GOTO 510 


1000 REM “ROUTINE DI INPUT** 

1010 BORDER 1: PAPER 1: INK 7: CLS 
1020 INPUT “NOME PER L'ASSE X?D”; LINE 
x$ 

1030 PRINT INVERSE 1;AT 0,0;“Cf; x$;“D" 
1040 INPUT “NOME PER L'ASSE Y?D"; LINE 

y$ 

1050 PRINT INVERSE 1;AT 0,16;"D''; y$;“D" 
1060 LET wS = "QUANTO”+ x$ + “D 
(1 — 25)?ED”: GOSUB 500 
1070 IF v< 1 OR v>25 OR v< >INT v 
THEN GOTO 1060 
1090 LET z = v:DIM a(z) 

1100 FOR k = 1 TO z 

1110 LETw$ = "IMMETTERE DATI PERD” + 
STRS k + GOSUB 500 
1120 LET a(k) = v 
1130 PRINT k,a(k) 

1140 NEXT k: LET g = 1: PAUSE 50: 

RETURN 

2000 REM "ROUTINE VISIONE/MODIFICA" 
2010 BORDER 2: PAPER 2: INK 7 
2020 LET cn = 1 

2025 CLS : PRINT PAPER 6; INK 2; AT 
0,0;x$,y$;TAB 31;‘0” 

2030 PRINT cn,a(cn) 

2035 PRINT #1; PAPER 6; INK 2;AT 
0,0;‘OnEDIT per modificare il 
valoreDDCOCOo qualsiasi altro tasto 
per continuareDIUIIO" 

2040 PAUSE 0 

2050 IF INKEY$ = “" THEN GOTO 2050 
2060 LET c$ = INKEY$ 

2070 IF c$ = CHR$ 7 THEN GOSUB 2500 
2080 IF cn = z THEN PRINT PAPER 6; INK 
2;“FINE DEI DATI”: PAUSE 100: RETURN 
2090 LET cn = cn + 1: IF cn = 21 THEN 
GOTO 2025 
2100 GOTO 2030 

2500 LET w$ = “IMMETTERE NUOVO 
VALORE DO" + STR$ cn + ‘0": GOSUB 
500 

2510 LET a(cn) = v: PRINT PAPER 6; INK 
2;cn,a(cn);TAB 31;"D": RETURN 
3000 REM "GRAFICO CON SCALA" 

3010 BORDER 0: PAPER 0: INK 7: CLS: LET 
hi = 0: LET lo = 0 
3020 FOR k = 1 TO z 
3030 IF a(k) > hi THEN LET hi = a(k) 

3040 IF a(k) < lo THEN LET lo = a(k) 

3050 NEXT k 

3060 LET type = 2: LET org = 4 
3070 IF lo <0 THEN LET type = 1 : LET org 
= 84 

3080 LET h = hi: IF ABS lo > hi THEN LET h 
= ABS lo 

3090 LET ra=hi — lo 
3100 IF h< =1 THEN LET hi = 1: GOTO 
3150 

3110 IF h< =10 THEN LET hi = 10: GOTO 
3150 

3120 IF h< =100 THEN LET hi = 100: 


259 
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Acorn: grafico delle oscillazioni stagionali di temperatura 


Spectrum: profitti e perdite su 12 mesi 


GOTO 3150 

3130 IF h < =1000 THEN LET hi = 1000: 
GOTO 3150 

3140 IF h< =10000 THEN LET hi = 10000 
3150 LET wd = INT (25/z) 

3160 IF type = 1 THEN LET ft = 80/hi 
3170 IF type = 2 THEN LET ft = 162/hi 
3180 PLOT 56,org: DRAW 198,0 
3190 PLOT 55,4: DRAW 0,160 
3200 FOR n = 4 TO 168 STEP 8: PLOT 52,n: 
DRAW 3,0: NEXT n 

3220 PRINT #1; PAPER 1;AT O.HTTxS; 

3225 LET z$ = “D” + y$ + '0’ 

3230 FOR n = 1 TO LEN z$ 

3240 PRINT AT n + (19-LEN y$)/2,0; 

PAPER 1 ;z$(n) 

3250 NEXT n 
3255 LET de = 1 

3260 IF type = 1 THEN GOTO 3320 
3270 FOR n = hi TO 0 STEP -(hi/10) 

3275 IF n<.01 THEN LET n = 0 

3280 LET n$ = STR$ n 

3290 PRINT AT de,(6 - LEN n$);n 

3295 LET de = de+ 2 

3300 NEXT n 

3310 GOTO 3400 

3320 FOR n = hi TO -hi STEP -(hi/5) 
3330 IF n<.01 and n> — .01 THEN LET n 


= 0 

3340 LET n$ = STR$ n 

3350 PRINT AT de, (6-LEN n$);n 

3360 LET de = de+ 2 


3370 NEXT n 
3400 LET ink = 1 

1 = 1 TOz 
3420 LET cm = org 
3430 LET ink = ink + 1: IF ink = 8 


!N LET 


ink = 2 
3440 INK ink 

3450 FOR m = 1 TO (a(n)*ft) STEP SGN a(n) 
3460 PLOT 56 + (n — 1 )’wd’8,cm: DRAW 
wd*8-2,0 

3470 LET cm = cm + SGN a(n) 

3480 NEXT m 
3490 NEXT n 

3500 IF INKEY$< >“” THEN GOTO 3500 
3510 IF INKEY$ = “” THEN GOTO 3510 
3520 RETURN 

4000 REM -GRAFICO SU SCHERMO 
INTERO” 

4010 BORDER 0: PAPER 0: INK 7: CLS : LET 
hi = 0: LET lo = 0 
4020 FOR n = 1 TO z 
4030 IF a(n)> hi THEN LET hi = a(n) 

4040 IF a(n) < lo THEN LET lo = a(n) 

4050 NEXT n 

4060 LET ra = hi — lo: LET ft = 175/ra: LET 
org = (ra — hi)*ft 
4070 LET wd = INT (25/z) 

4080 PLOT 56,org: DRAW 198,0 

4090 PLOT 55,0: DRAW 0,175 

4100 PRINT #1; PAPER 1;AT 0,14;“D”;x$: 

4110 LET z$ = + y$ + 

4120 FOR n = 1 TO LEN z$ 

4130 PRINT AT n + (19-LEN y$)/2,0; 

PAPER 1 ;z$(n) 

4140 NEXT n 

4150 PRINT AT 0,0;hi;AT 21,0;lo 
4200 GOTO 3400 



0 BB = 53280:GOTO 200 
1 CLR:BB = 53280:FF = 1 


2 POKE BB,0:POKE BB + 1,0 

3Q $= HHHHHSSHHHH 

H” 

4 INPUT “□ NOMEDDELDGRAFICO”;N$ 

5 INPUT ‘'□□NUMERODDOBARRE (1 - 

30)”;XX 

6 IF XX<1 OR XX>30 THEN 5 

7 DIM A(XX),B(XX),C(XX) 

8 FOR Z = 1 TO 30 

9 IF XX*Z>30 THEN XI =Z-1: GOTO 10 

10 NEXT Z 

11 PRINT "□IMMETTEREDDATI:® '’ 

12 FOR Z = 1 TO XX:PRINT “BARRA”; Z;: 
INPUT C(Z):NEXT Z 

13 A = 0:B = 0:C = 0:D = 0 

14 FOR Z = 1 TO XX 

15 IF C(Z) > A THEN A = C(Z) 

16 IF C(Z)<B THEN B = C(Z) 

17 IF C(Z)<0 THEN B(Z) = C(Z): A(Z) = 0 

18 IF C(Z)>0 THEN A(Z) = C(Z): B(Z) = 0 

19 NEXT Z 

20 C = A +ABS(B) 

22 GOTO 200 

24 POKE BB,5:POKE BB + 1,0 

25 PRINT “□"N$ 

26 FOR Z = 2 TO 22 

27 POKE 1033 + Z*40,64:POKE 55305 + 
Z*40,6 

28 POKE 1032 +Z'40,45:POKE 55304 + 
Z-40,3 

29 NEXT Z 

30 FOR Z = 1 TO XX:W = 0:CO = 8 

31 IF B(Z) < 0 THEN CO = 2 

32 FOR ZZ = B/D TO A/D 

33 W = W +1 :IF INT(ZZ) < > 0 THEN 38 

34 FOR G = 1 TO XI 

35 POKE (1953 —X1) + (Z*X1 +G)-W*40,64 
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Dragon e Tandy: un grafico di percentuali 


Commodore 64: ogni barra simula un effetto 3D 




36 POKE (56225 — XI ) + (Z*X1 + G) — W'40,7 

37 NEXT G:G0T0 43 

38 FOR G = 1 TO XI :CA = 227:CC = CO: IF G 
< >1 AND G = X1 THEN C0 = 1 

39 IF ZZ<0 THEN CA = 228 

40 IF B(Z)/D > ZZ OR A(Z)/D<ZZ THEN 43 

41 P0KE((1953 — XI ) + Z*X1 +G)-W*40,CA: 
POKE((56225 - XI ) + Z*X1 + G) - W*40, 
CO 

42 C0 = CC:NEXT G 

43 POKE BB, RND(1)*2 + 5 

44 NEXT ZZ,Z:P0KE BB,5 

45 PRINT @ U H”: LEFT$ (Q$, 20 - 
ABS (B/D)) 

46 FOR Z = 0 TO A STEP D*2: IF C= < 

10 AND INT(Z) < >Z THEN PRINP'D 
□ G0T048 

47 print iNT(zrnnn” 

48 NEXT Z 

49 PRINT "@H ';LEFT$(Q$,20-ABS(B/D)) 

50 FOR Z = 0 TO B STEP -D”2: IF C = 

<10 AND INT(Z) < >Z THEN PRINT 
“H ":G0T0 52 

51 PRINT INT(Z)"B” 

52 NEXT Z 

53 POKE 198,0 

54 GET A$:IF A$ = “” THEN 54 

55 GOTO 200 

100 POKE BB,1:POKE BB + 1,1 

103 IF FF = 0 THEN 500 

105 PRINT “□aa"TAB(10rPLOnERnDI 

□GRAFICOADBARRED" 

ii0 print "Hannali t" 

115 FOR Z = 1 TO 15 

120 PRINT “nnnm":NEXT Z 

125 PRINT “□□□ISOST: 

130 FOR Z = 1 TO 30 


135 PRINT “ —”;:NEXT Z 
140 PRINT “>” 

145 PRINT “gUBSSSSSSU 

U 11 u u VALORE:DUNITÀ” 

150 print asssssssss 

Siili 11 11 II BARREnSETT/MESI/ 
ANNI” 

155 PRINT BHS^d'TAB(9) 
‘'PREMEREDUNnTASTOnPERn 
CONTINUARE” 

160 POKE 198,0 
165 WAIT 198,1 
170 GOTO 24 

200 POKE BB,6:P0KE BB + 1,6 

210 PRINT "□aHSSSHS 'TAB 

(i 5)“H d nnopziONinn a 3 " 

220 PRINT TAB(12)“iniMMISSI0NEnDATr 
230 PRINT TAB(12)”2nGRAFIC0nC0Nn 
SCALA” 

240 PRINT TAB(12)”3nVISIONE/MODIFICAn 
DATI” 

245 PRINT TAB(12)“4nGRAFIC0nSUn 
SCHERMOniNTERO" 

250 PRINT TAB(13)”aEdlQUALEn 
OPZIONED?” 

260 POKE 198,0 
270 GET A$ 

280 ON VAL(A$) GOTO400,700,300, 600 

290 GOTO 270 

300 IF FF = 0 THEN 500 

305 POKE BB,7:POKE BB + 1,7 

310 PRINT ” □ U DATinPERn”N$ 

315 PRINT,"a3 BARRE”,"3 ALTEZZA8” 
320 FOR Z = 1 TO XX 
325 IF A(Z)< >0 THEN PRINT,'"3’Z 
“ia"A(Z):GOTO 335 

330 PRINT,“f3"Z, a"B(Z) 


335 POKE 198,0 
340 GET A$ 

345 IF A$ = THEN 340 

350 IF A$< >CHR$(13) THEN 370 

355 PRINT “□H"TAB(18); 

360 INPUT C(Z) 

365 GOTO 13 
370 NEXT Z 
375 GOTO 200 

400 POKE BB,13:POKE BB + 1,13 

410 PRiNT'uasssssssu 

UUUUpbemeredoi 

|i)MMISSIONE DATin,n(aMU)ENU" 
420 GET A$ 

430 IF A$ = T THEN 1 
440 IF A$ = “M" THEN 200 
450 GOTO 420 

500 PRINT"□ a "TAB(16)“NESSUNnDAT0!" 

510 FOR Z = 1 TO 500:NEXT Z 

520 GOTO 200 

600 IF FF = 0 THEN 500 

605 IF C< = 10 THEN D = .5:G0T0 100 

606 IF C< =20 THEN D = 1:GOTO 100 
610 D = C/20:GOTO 100 

700 IF FF = 0 THEN 500 

705 IF C < = 10 THEN D = 1.25:GOTO 100 

706 IF C< = 20 THEN D = 2.5:G0T0 100 
710 D = C/20 + 9:D = D\1 :D = INT(D)*10: 

GOTO 100 



10 A = Q 
20 M0DE1 

30 VDU19,0,4,0,0,0,19,1,2,0,0,0,19,2,1,0,0,0 
40 CLfcPRINTTABO 0,8)“OPZIONI:”TAB(10,11 ) 261 

“1 niMMISSlONEnDATI"TAB(10,1 3)“2n 
VISIONE/MODIFICAnDATI”TAB(10,1 5)"3n 
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5 APPLICAZIONI 5 

r 


■■■■■■lllllllll 


GRAFIC0"TAB(10,17)“4DFINE LAVORO" 
50 G = GET 

60 IF G = 49 THEN PROCINITVAL: GOTO 40 
70 IF G = 52 THEN 130 
80 IF A = 1 THEN 100 
90 PRINT""NONDSONOnSTATOMMESSO 
DATI.”:FOR T = 1 TO 2000:NEXT:GOTO 40 
100 IF G = 50 THEN PROCEDIT: GOTO 40 
110 IF G = 51 THEN PROCVIEW 
120 GOTO 40 
130 CLS 
140 END 

150 DEF PROCINITVAL 
160 IF A = 1 THEN PRINT'“SONO[HGIÀn 
STATiniMMESSinALCUNIDDATID”: 

FOR T = 1 TO 2000: NEXT: ENDPROC 
170 A = 1 
180 CLS 

190 INPUr-NOMEDDELDGRAFICOCT’JtTS 
= LEFT$(T$,25) 

200 INPUT"'NOMEDPERnL , ASSEnX",X$:X$ 
= LEFT$(X$,25) 

210 INPUT'“NOMEDPERnL'ASSEnr,Y$:Y$ 
= LEFT$(Y$,25) 

220 INPUT'“QUANTEDBARRE",N 
230 IF N = 0 THEN 220 
240 CLS 

250 PRINT'-ADESSOniMMETTEREOID 
DATI”' 

260 PRINnAB(12)“BARRA",“VALORE” 

270 DX = 1000/N 
280 DIM Y(N) 

290 FOR T = 1 TO N 

300 PRINTTAB(12)"N.nn";T“nna";:INPUT 
”"Y(T) 

310 NEXT 

320 ENDPROC 

330 DEF PROCVIEW 

340 MAX = 0:MIN = 0 

350 FOR T = 1 TO N 

360 IF Y(T) > MAX THEN MAX = Y(T) 

370 IF Y(T) < MIN THEN MIN = Y(T) 

380 NEXT 

390 PROCSCALEPOS 

400 PROCSCALENEG 

410 PROCNORM 

420 CLS 

430 GCOL0.3 

440 R = MAX3 —MIN3 

450 MOVE242,60:DRAW242,960 

460 DY = 900/R 

470 YAX = 60 — M IN3/R"900 

480 MOVE242,YAX:DRAW1200,YAX 

490 W = 1000/N -8 

500 PROCYAXIS 

510 PROCNAMES 

520 FOR T = 1 TO N 

530 PROCBLOCK 

c/fl kicvT 

262 550 G = GET:ENDPROC 
560 DEF PROCBLOCK 
570 IF Y(T) > 0 THEN GCOL0.1 ELSE 


GCOL0.2 

580 MOVE250 + (T -1 )*DX,YAX:MOVE250 + 
W + (T —1)*DX,YAX 

590 PLOT85.250 + (T -1 )*DX,YAX + Y(T)*DY/ 
FAC:PL0T85,W + (T -1 )*DX + 250,YAX + 
Y(T)*DY/FAC 
600 ENDPROC 
610 DEF PROCSCALEPOS 
620 FAC = 0 

630 IF MAX = 0 THEN 650 
640 FAC = 10aINT(LOG(MAX)) 

650 ENDPROC 

660 DEF PROCSCALENEG 

670 FAC2 = 0 

680 IF MIN = 0 THEN 700 

690 FAC2 = 1 0aINT(LOG(— MIN)) 

700 ENDPROC 
710 DEF PROCNORM 
720 IF FAC2 > FAC THEN FAC = FAC2 
730 MAX3 = INT(MAX/FAC +1 ):MIN3 = INT 
(MIN/FAC—1) 

740 IF MIN = 0 THEN MIN3 = 0 

750 IF MAX = 0 THEN MAX3 = 0 

760 ENDPROC 

770 DEF PROCYAXIS 

780 GCOL0.3 

790 VDU5 

800 FOR T = MIN3 TO MAX3 
810 MOVE0.70 + (T — MIN3)*DY:PRINTTAB 
(7 — LEN(STR$(T)));T 
820 NEXT 
830 VDU4 
840 ENDPROC 
850 DEF PROCNAMES 
860 GCOL0.3 
870 VDU5 

880 FOR T = 1 TO LEN(Y$) 

890 MOVE64.900 - T*32:PRINTMID$(Y$,T,1 ) 
900 NEXT 

910 MOVE320,31:PRINTX$ 

920 VDU4 

930 VDU30:PRINT"X”;FAC;TAB(15)T$ 

940 ENDPROC 
950 DEF PROCEDIT 

960 VDU12:PRINT"PREMEREDUNODSPAZIO 
□ PERDMODIFICAREIIIILCIDATOn 
PRESENTATODOPPUREDRETURNDPER 
□PASSAREDALDSUCCESSIVO” 

970 PRINT' 

980 PRINT“nnDnBARRADSENZAnnn 
□□□□VALORE” 

990 FOR T = 1 TO N 
1000 PRINTT,Y(T) 

1010 IF GET< >32 THEN 1030 
1020 PRINTT;‘U , ,;CHR$(8);:INPUT“”Y(T) 

1030 NEXT 
1040 ENDPROC 


sani 

10 PMODE 4,1 


20 CLS 

30 PRINT@45,“menu":PRINT@ 102,"1 -□ 
IMMISSIONEnDATI”:PRINT@166,“2 - □ 
GRAFICOaAnBARRE”:PRINT(3j230,"3 — 
□VISI0NE/M0DIFICAnDATI”:PRINT@294, 
“4 — □FINEnLAVORO" 

40 A$ = INKEY$:IF A$<"1” OR A$>“4” 
THEN 40 

50 IF AS = “1 " AND DA = 1 THEN 80 
60 ON VAL(A$) GOSUB 1000,2000,3000,4000 
70 GOTO 20 

80 PRINT@484,“SEOSICUROn(S/N)n?”; 

90 A$ = INKEY$:IF A$ < > ”S” AND A$ < > 
”N” THEN 90 

100 IF A$ = “S” THEN CLEAR200:A$ = "1 ”: 

GOTO 60 
110 GOTO 20 

1000 DA = 1:CLS:INPUrONOMEQPERD 
L’ASSEnX”;X$ 

1010 X$ = LEFT$(X$,32):IF X$ = ”" THEN X$ 
= “ASSEnX” 

1020 MD = INT(16 — LEN(X$)/2) 

1030 INPUT“nNOMEnPERDL'ASSEnY";Y$ 
1040 Y$ = LEFT$(Y$,12):IF Y$ = “" THEN Y$ 
= "ASSEDY" 

1050 HT = INT(6 — LEN(Y$)/2) 

1060 INPUT"N.DDOBARREa”;NB 
1070 NB = INT(NB):IF NB< 1 THEN 1060 
1080 BL = INT(26/NB):IF BL < 1 THEN BL 
= 1 

1090 DIM A(NB) 
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1100 PRINT 

1110 FOR K = 1 TO NB 

1120 PRINrDVALOREDDELLAnBARRA";K;: 

INPUT A(K) 

1130 NEXT 
1140 RETURN 

2000 IF DA = 0 THEN PRINT@455, “datiD 
norOmmessi”:FOR K = 1 TO 2000:NEXT: 
RETURN 

2010 TP = 0:BT = 0 

2020 FOR K = 1 TO NB 

2030 IF A(K)>TP THEN TP = A(K) 

2040 IF A(K) < BT THEN BT = A(K) 

2050 NEXT 

2060 IF TP = 0 AND BT = 0 THEN PRINT 
“TUnininVALORIDAnZERO":FOR K = 

1 TO 2000:NEXT:RETURN 
2070 CLS:PRINT@64,"GRAFIC0DC0ND 
SCALAD(S/N)? M 

2080 A$ = INKEY$:IF A$< >"S" AND A$< 
> “N” THEN 2080 
2090 IF A$ = “N” THEN 2120 
2100 IF TP >0 THEN E = INT(LOG(TP)/LOG 
(10)):TP = INT (1 +TP/(10tE))*10|E 
2110 IF BT<0 THEN E = INT(LOG( — BT)/ 
LOG(10)):BT= -INT(1 -BT/(10TE))*10TE 
2120 IN = 178/(TP — BT) 

2130 ST = INT(IN'TP) 

2140 T$ = “":IF TP = 0 THEN 2160 
2150 IF TP> ABS(BT) THEN E = 2*INT(LOG 
(TP)/LOG(1000)) ELSE E = 2*INT(LOG(ABS 


(BT))/LOG(1000)) 

2160 T$ = “ + ” + MID$(STR$(INT(.5 + TP)/10 
|E)),2):B$ = ‘"’:IF BT = 0 THEN 2180 
2170 BS = STR$ (INT(.5 + BT/10tE)) 

2180 SL = 1:LP = NB:IF NB>26 THEN LP 
= 26 

2190 POKE 179,243:PCLS:POKE 65475,0: 

POKE 65477,0:POKE 65479,0 
2200 POKE 179,2 

2210 LINE(40,0)-(47,191),PRESET, BF 
2220 IF T$ = THEN 2260 
2230 FOR K = 1 TO LEN(T$):P = ASC(MID$ 
(T$,K,1))AND63:F0R M = 0 TO 11 
2240 POKE 1540 — LEN(T$) + 32'M + K,P 
2250 NEXT M,K 
2260 IF B$ = THEN 2300 
2270 FOR K = 1 TO LEN(B$):P = ASC(MID$ 
(B$,K,1 ))AND63:FOR M = 0 TO 11 
2280 POKE 6916 — LEN(B$) + M*32 + K,P 
2290 NEXT M,K 
2300 FOR K = 1 TO LEN(XS) 

2310 P = ASC(MID$(X$,K,1 ))AND63 
2320 FOR M = 182 TO 190:POKE 1503 + MD 
+ 32*M + K,P:NEXT 
2330 NEXT 

2340 FOR K = 1 TO LEN(Y$) 

2350 FOR M = 0 TO 11 

2360 P = ASC(MID$(Y$,K,1 ))AND63 

2370 POKE 1568 + 384*(K + HT) + 32*M,P 

2380 NEXT M,K 

2390 FOR K = 5 TO 31 


2400 POKE 1536 + 32*ST + K,128 
2410 NEXT 

2420 FOR K = ST TO 0 STEP -22 
2430 POKE 1541+K*32,202 
2440 NEXT 

2450 FOR K = ST TO 178 STEP 22 
2460 POKE 1541 +K*32,202 
2470 NEXT 

2480 FOR K = SL TO LP:CO = (CO + 1)AND1 
2490 POKE 178,35+ C0*64:P0KE 179,3 + 
CO*192 

2500 IF INT(A(K)*IN)>0 THEN LINE(48 + 8* 
(K - SL)'BL,ST -1 ) - (47 + 8*(K - SL + 

1 )*BL,ST - INT(A(K)*IN)),PSET,BF 
2510 IF FIX(A(K)*IN)<0 THEN LINE(48 + 8* 
(K - SL)*BL,ST) - (47 + 8*(K - SL +1 )* 
BL,ST - FIX(A(K)*IN)), PRESET, BF 
2520 NEXT K 

2530 IF LP = NB THEN 2570 
2540 SL = LP +1 :LP = LP + 26:IFLP > 

NB THEN LP = NB 
2550 IF INKEYS = THEN 2550 
2560 POKE 179,243:LINE(48,0) — (255,178), 
PRESET,BF:GOTO 2390 
2570 IF INKEYS = “" THEN 2570 
2580 RETURN 

3000 IF DA = 0 THEN PRINT@455,“nessun 
□datoOmmesso”:FOR K = 1 TO 2000: 
NEXT:RETURN 

3010 SL = 1:LP = NB:IF NB>14 THEN LP 
= 14 

3020 CLS:PRINT“Dbarra","valore" 

3030 FOR K = SL TO LP 
3040 PRINTK.A(K) 

3050 NEXT 

3060 IF NB = LP THEN 3130 
3070 PRINT@480,“vDPERnVARIARE,D 
QUALSIASIDTASTODPERD 
CONTINUARE”; 

3080 A$ = INKEY$:IF A$ = “” THEN 3080 
3090 IF A$= ‘V’ THEN 3170 
3100 SL = LP +1 :LP = LP +14 
3110 IF LP> NB THEN LP = NB 
3120 GOTO 3020 

3130 PRINT®480,“vnPERDVARIARE.D 
QUALSIASIDTASTODPERD 
CONTINUARE”; 

3140 A$ = INKEYS:IF A$ = “” THEN 3140 
3150 IF A$ = “V” THEN 3170 
3160 RETURN 

3170 CLS:PRINT:INPUT“DNUMERODDELC 
DATODDAnVARIAREa?”;E 
3180 E = INT(E):IF E<1 OR E>NB THEN 
3170 

3190 PRINT:PRINT“NUOVODVALOREDDELa 
DATO”;E;:INPUT A(E) 

3200 GOTO 3020 

4000 CLS:PRINT@37,“SEOSICUROD(S/N)n 

?” 

4010 A$ = INKEY$:IF A$< >“S” AND A$< 
>“N” THEN 4010 
4020 IF A$ = “N” THEN RETURN 





263 
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01 UNWVENTURA 


Eccoci in un mondo di fantasia, 
creato da noi stessi per 
stupire e anche un po’ 
per sconvolgere gli amici. 

Diamo uno sguardo al mondo 
e alla storia dei giochi di avventura 



Per chi desideri un po’ di tregua dai gio¬ 
chi a base di velocità e mira, l’alternativa 
è il gioco d’avventura, un genere di gioco 
grazie al quale ci si immerge totalmente 
in un mondo di fantasia creato dallo stes¬ 
so programmatore. Esercitando intelli¬ 
genza, saggezza e conoscenza di fatti ed 
eventi insoliti, si conduce un viaggio alla 
ricerca dell’obiettivo creato dall’ideatore. 

Nelle successive sezioni di Giochi al 
Computer, verrà spiegato come creare da 
zero un proprio gioco d’avventura. Per 
adesso, ecco un’introduzione a questo in¬ 
teressante genere. 


LA STORIA DELLE "ADVENTURE” 


L’idea di scrivere giochi d’avventura pro¬ 
viene dalla popolarità di giochi classici 
(non da computer) quali il “Dungeons e 
Dragons” e dal desiderio di fare con il 
computer qualcosa di più interessante 
della semplice elaborazione dati. In “Dun¬ 
geons e Dragons” i giocatori entrano nei 
panni di alcuni personaggi e si affrontano 
l’un l’altro in un mondo, Dungeon, creato 
dal Signore di Dungeon. Questo ruolo, nei 
giochi d’avventura computerizzati, è in 
parte svolto del programmatore che, co¬ 
me il Signore di Dungeon, crea un pro¬ 
prio mondo. Il giocatore, d’altra parte, 
assume un ruolo simile a quello di uno dei 
personaggi. 

Tuttavia, nei giochi d’avventura al 



Cosa fare se si resta bloccati in 
mezzo a un’avventura? 


Prima di arrenderci, riproviamo 
dopo un po’ di tempo: può venire in 
mente un’altra idea o strategia. Ma 
se si è proprio bloccati, le avventure 
in commercio forniscono spesso 
fascicoletti con le soluzioni, o danno 
modo di richiederli per posta. 

Un altro canale da seguire per / 
un aiuto sono le rubriche di / 
alcune riviste specializzate, y' 



computer, i giocatori di solito non posso¬ 
no scegliere il tipo di personaggio: è il 
computer a fare questa scelta. Nelle ver¬ 
sioni più sofisticate, si può anche sceglie¬ 
re l’equipaggiamento da 
portarsi appresso, prima di 
partire verso l’obiettivo, 
ma partecipazione e verosi¬ 
miglianza dell’avventura 
dipendono tutte dall’ideatore. La 
prima avventura fu scritta in FOR¬ 
TRAN, anziché in BASIC, su una 
grande unità di elaborazione. Il 
programma occupava più di 300 
Kbyte di memoria, molto di più di 
quella di un microcomputer. 

La storia vera e propria cominciò 
però nel 1978, quando Scott 
Adams trasferì alcune idee su un 
micro TRS 80, dimostrando la pos¬ 
sibilità di scrivere un’avventura 
soddisfacente in uno spazio di me¬ 
moria molto minore. 

I temi adottati da Adams per i suoi gio¬ 
chi (Adventureland, Covo dei Pirati, La 
casa dei misteri e II Conte), sono stati da 
allora una fonte inesauribile di ispirazione 
per gli ideatori di giochi. 


TIPI DI AVVENTURA 


Nel gioco originale, ma anche in quelli di 
Adams, sullo schermo vengono visualiz¬ 
zati soltanto dei testi. Questo tipo di gio¬ 
co, esclusivamente testuale, è ancora 
molto apprezzato e, sostengono alcuni, 
costituisce la vera avventura. 

In effetti, nelle avventure puramente 
testuali, la trama esiste soltanto nella 
mente del giocatore che, se il programma 
è buono, sarà del tutto preso dallo svol¬ 
gersi degli eventi. 

Solo una grafica molto sofisticata può 
competere con la nostra immaginazione. 
Per esempio, si può immaginare un orco 
molto più feroce di quanto si riesca a dise¬ 
gnare con la migliore grafica. 

Una considerazione più concreta contro 
l’uso della grafica è che la gran quantità 
di memoria ad essa dedicata potrebbe in¬ 
vece servire per allargare la portata del 
gioco. Inoltre, il ritmo dell’avventura si 
infiacchisce, se il giocatore deve attende¬ 
re ogni volta il formarsi del disegno. 


Certe avventure assegnano un punteg¬ 
gio al raggiungimento di determinate fasi 
del gioco, in modo da sapere, a qualsiasi 
livello si venga eventualmente uccisi, co¬ 
me ci si è comportati. Altri, invece, espri¬ 
mono un giudizio del tipo ‘buffone o 
esperto’. Un tipo di avventura diametral¬ 
mente opposto non fornisce intenzional¬ 
mente alcuna indicazione su come si stia 
procedendo, né su quanto si è vicini alla 
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■ COS’E UN GIOCO D’AVVENTURA 


■ COME SI GIOCA 


■ SUGGERIMENTI CIRCA LE 


SOLUZIONI ALLE AWENTURE 


■ SCRIVERE IL PROPRIO GIOCO 


meta: la soddisfazione finale proviene dal¬ 
la risoluzione di una lunga serie di rompi¬ 
capi, che ci avvicinano gradualmente al 
termine della ricerca e all’obiettivo finale. 


COME GIOCARE 


Di norma, quando si inizia un’avventura, 
viene fornita una descrizione sommaria 
sul mondo in cui ci si addentra: se cioè si 
tratta di un luogo inesplorato o di un pia¬ 


neta sperduto oppure di un mondo del 
tutto fantastico. 

Il gioco può ambientarsi nel passato, 
nel presente o nel futuro... o anche in tut¬ 
ti e tre i momenti. In genere, viene data 
qualche indicazione iniziale (chi comanda 
nel mondo, qual’è il ruolo del giocatore, 
chi sono gli amici e chi i nemici e via di¬ 
cendo) e, dato più importante, cosa occor¬ 
re fare per riuscire nell’avventura e vin- 
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LA SOLUZIONE DELLE AVVENTURE 


Normalmente, esiste una sola soluzione 
per un’avventura; ad esempio: raccoglie¬ 
re tutto il tesoro e riportarlo al sicuro, o 
eliminare il rappresentante del Male e 
sfuggire illesi. 

Il resto è una sequenza fissa di problemi 
da risolvere. Le probabilità sono tali che i 
tentativi saranno molti prima che l’av¬ 
ventura finisca. Infatti, le avventure più 
belle sono quelle che richiedono giorni, 
settimane, o addirittura mesi di fatica! Ci 
sono però alcune regole e suggerimenti 
per aiutare a risolvere quasi tutte le av¬ 
venture in meno tempo. 

Quasi senza eccezioni, gli oggetti che si 
trovano nelle avventure servono a qualco¬ 
sa. Sarebbe uno spreco di memoria se il 
programmatore lasciasse in giro troppi 
diversivi, anche se alcuni oggetti saranno 
armi a doppio taglio. Per esempio, può es¬ 
sere necessario portarsi dietro un sacco 
di monete d’oro per pagare il pedaggio 
sul ponte, ma se si deve invece passare il 
fiume a nuoto, il peso ci farà annegare. In 
genere, conviene prendere quanti più og¬ 
getti possibile, ma in qualche occasione si 
vedrà che non si possono tenere tutti. 
Molti di essi servono solo una volta nel¬ 
l’avventura, salvo forse una spada, ad 
esempio, che servirà più volte per elimi¬ 
nare i cattivi. Se c’è un limite al numero 
di oggetti da portare con sé, ricordiamo 
che spesso è prudente scartare gli oggetti 
dopo l’uso. 

È sempre bene tracciare una mappa, se¬ 
gnandovi i nomi delle stanze e le cose in¬ 
teressanti in ognuna, oltre agli oggetti 
che vi si trovano, le entrate, le uscite e le 
loro direzioni. 

Questa mappa ci risparmierà un sacco 
di tempo, evitando di tornare sui propri 
passi, cosa che accade spesso durante il 
gioco. Se ci sono oggetti da abbandonare, 
perché non si può portare tutto con sé, si 
segni la loro posizione sulla mappa. E, al¬ 
trettanto importante, una mappa dà la 
garanzia di esplorare tutta l’avventura 
senza per questo ricadere per l’ennesima 
volta nelle “solite” sabbie mobili. 

La maggior parte dei giochi prevede la 
visualizzazione di un inventario degli og¬ 
getti che si hanno con sé e per esaminarlo 
di fronte a un ostacolo basta scrivere IN¬ 
VENTARIO, INVE o solo I, a seconda dell’av¬ 
ventura. 

Allo stesso modo, alcune avventure 
permettono di chiedere aiuto e la formula 
dipende anche stavola dal gioco. Può es¬ 
serci o non esserci un aiuto, ma alla peg¬ 
gio ci si troverà di fronte a “NESSUN AIUTO 
QUI!”. Alcuni giochi seguono da vicino la 



trama di un particolare libro e in questo 
caso studiarsi il libro in questione è sen¬ 
z’altro una buona idea. A volte sono state 
riprese solo piccole sezioni o idee e, se ci 
sembra di riconoscere qualcosa, proviamo 
a ricercarla sul libro. 

Analogamente, se un personaggio ripu¬ 
gnante che brandisce una pesante manna¬ 
ia ci sbarra la strada chiedendoci quale sia 
il diametro della Terra, non cerchiamo di 
tirare a indovinare, ma corriamo a con¬ 
sultare un’enciclopedia! 

Un’altra trappola molto usata sono i 
quiz con giochi di parole: attenzione, non 


sempre sono facili come sembra. Tenia¬ 
moci quindi vicino un vocabolario o un di¬ 
zionario dei sinonimi per risolvere doppi 
sensi e frasi ambigue: il programmatore 
potrebbe aver introdotto LUSTRARE, ma 
non STROFINARE, ad esempio. 

Un ultimo avvertimento: se l’avventura 
che si sta giocando permette di memoriz¬ 
zare su nastro o su disco una particolare 
fase del gioco, per poterlo giocare a più ri¬ 
prese, è bene sfruttare l’occasione prima 
di affrontare una diffi¬ 
coltà. Se andasse male, 
si può sempre riprende- 
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re da dove si era rimasti e tentare così più 
volte l’assalto a un drago o il passaggio di 
un ponte pericolante. 


SCRIVERE AVVENTURE 


268 



Scrivere avventure è un buon modo per 
esercitarsi in BASIC: vengono utilizzati 
quasi tutti gli aspetti importanti del lin¬ 
guaggio, dall’uso delle variabili e della 
segmentazione delle stringhe, ai vari tipi 
di PRINT per la formattazione dello scher¬ 
mo, alle matrici ecc. L’unica barriera nel¬ 
la produzione di giochi d’alta qualità è la 
propria immaginazione. 

Prima di mettersi a programmare 
un’avventura, occorre però avere idee 
ben chiare su cosa si vuol fare e sul sog¬ 
getto. Trama, ostacoli, trappole e così via 
devono essere tutti predefiniti per rispar¬ 
miarsi possibili problemi. 

Prima di tutto, buttiamo giù le idee su 
un foglio: anche se non si ha un quadrao 
completo di tutte le implicazioni, basta 
un’idea generale, un’ambientazione e 
qualche ostacolo sul cammino del giocato¬ 
re. Nelle prossime lezioni verrà spiegato 
come tramutare l’idea di un gioco in un 
programma, imparando a inserire le pro¬ 
prie idee originali. Si faccia molta atten¬ 
zione al mondo che si sceglie per ambien¬ 
tare l’avventura e si cerchi di renderlo il 
più interessante possibile: ci vuole un bel 
po’ di fatica per scrivere un’avventura di¬ 
vertente ambientata in un grigio ambien¬ 
te d’ufficio! 

Ci si può ispirare a libri, romanzi, film, 
commedie, oppure a idee totalmente nuo¬ 
ve. Si può prendere a prestito qualcosa da 
altre storie, anche se la fonte migliore è... 
un buon incubo! Comunque sia, occorre 
sempre un tema centrale da sviluppare 
nel corso dell’avventura. 

Si cerchi sempre un giusto equilibrio 
tra sfida e impossibilità: non vai la pena 
dedicare un sacco di tempo a scrivere 
un’avventura se poi chiunque riesce a ri¬ 
solverla nel giro di mezz’ora. Viceversa, 
non ci faremo certo degli amici tra i gio¬ 
catori, se le nostre storie sono del tutto 
impossibili da risolvere. 

La regola è dare a chi punta una possi¬ 
bilità, ma non troppe! 

Si cerchi anche di non lasciare troppi 
ambienti vuoti, che nulla aggiungono al¬ 
l’avventura, mentre occupano spazio vita¬ 
le in memoria (per non parlare del fasti¬ 
dio che danno!). 

Non si parta con storie troppo compli¬ 
cate perché i problemi da affrontare sono 
complessi finché non si è acquisita buona 
pratica. 

Si valutino bene le conseguenze di ogni 
tentativo ambizioso e si tenga d’occhio 


anche la quantità di memoria che rimane 
alla macchina. 

Nell’avventura che viene sviluppata nel 
corso di Giochi al Computer, troviamo 
molte frasi REM. Per risparmiare memo¬ 
ria, in un’avventura lunga conviene omet¬ 
terle del tutto, anche se ciò comporta una 
più difficile comprensione del listato. 

Altro spazio su cui economizzare memo¬ 
ria è quello delle descrizioni degli ambien¬ 
ti (senza peraltro accorciarle troppo, al¬ 
trimenti l'avventura perde di fascino). 
Nella prossima lezione vedremo come 
passare dall’idea dell’avventura a una 
mappa e impostare il programma. 


La risposta giusta sarebbe: “tutta 
quella possibile”! L’avventura 
sviluppata nel corso di questa 
sezione è molto semplice e occupa 
circa 5K di BASIC, ma si noterà che 
non è a un livello confrontabile con 
quanto reperibile in commercio. Le 
avventure migliori hanno un gran 
numero di stanze e di indovinelli e, 
inoltre, risultano difficili per 
l’accumularsi dei problemi. Con una 
quantità di memoria limitata si è 
costretti a selezionare un numero di 
problemi minori, ma di maggior 
complessità, per impedire una 
soluzione rapida e di scarsa 
soddisfazione. Un computer 
con 16K di memoria può 
considerarsi il minimo. 



Quanta memoria serve per scrivere 
un gioco d’avventura? 


QUANTA MEMORIA RESTA? 


Nello scrivere un lungo gioco d’avventura 
è facile scoprire che si stanno forzando i 
limiti di memoria della macchina. È ovvio 
che il problema è più acuto quanto minore 
è la memoria della macchina e, del resto, 
è una perdita di tempo scrivere un avven¬ 
tura per un computer con meno di 16K. 

Per ogni macchina esiste un modo di 
controllare quanta memoria resta. Basta 
una semplice routine: 


Sullo Spectrum, si scriva: 

Print (PEEK 23730 + 256*PEEK 23731)— 
(PEEK 23653+ 256* PEEK 23654) 

Così si mette in conto sia il programma in 


sé che lo spazio delle variabili. Una mi¬ 
gliore valutazione della memoria restante 
si ha appena dopo aver eseguito un RUN 
del programma (se ciò è possibile nel cor¬ 
so della stesura). 

[E sa 

Sui Commodore, si ottiene la memoria re¬ 
stante digitando: 

PRINT FRE (0) 

La memoria restante tiene conto sia dello 
spazio occupato dal programma che dalle 
variabili, ma in tal caso occorre usare la 
linea appena descritta dopo aver dato un 
RUN del programma, se ciò è possibile nel 
corso della stesura. 



Sugli Acorn, si ottiene la memoria restan¬ 
te digitando: 

PRINT HIMEM —TOP 

Questo numero comprende solo lo spazio 
occupato dal programma: lo spazio delle 
variabili non è valutabile, e di ciò va tenu¬ 
to conto lasciando spazio sufficiente. Per 
ottenere l’ammontare massimo di memo¬ 
ria si usi il Mode 7 sul BBC e il Mode 6 sul¬ 
l’Electron. 


E 


Sul Dragon e sul Tandy, si trova la memo¬ 
ria restante digitando: 

PRINT MEM 

Il risultato tiene conto dello spazio occu¬ 
pato dal programma e dalle variabili, per¬ 
ciò conviene eseguire un RUN nel corso 
della stesura, se ciò è possibile, per avere 
un’indicazione reale sulla memoria totale 
impiegata. 

Esiste un metodo molto facile per au¬ 
mentare la quantità di memoria disponi¬ 
bile sul Dragon per i programmi in BA¬ 
SIC. Prima di cominciare a programma¬ 
re, si digitino queste due POKE: 

POKE 25,6 
POKE 26,1 
NEW 

Si guadagnano così altri 6Kbyte per il 
programma, facendo utilizzare al pro¬ 
gramma BASIC lo spazio normalmente 
riservato alla grafica ad alta risoluzione, 
ossia quattro pagine di 1 Kbyte e mezzo. 

Se si usano le POKE, ci si accerti di non 
usare comandi grafici nell’avventura, al¬ 
trimenti si sciupa il programma. Quando, 
dopo aver memorizzato il programma su 
nastro o su disco, lo si vuole ricaricare in 
memoria, non ci si dimentichi di digitare 
prima le POKE, seguite da un NEW. 
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TIRO INCROCIATO 
COi LE MATRIC 


■ PREDISPORRE UNA MATRICE 

!_ L’IMMISSIONE DEI DATI 

1_ SCRIVERE I PROGRAMMI 

9_ ESTRARRE INFORMAZIONI 

■ ADATTARE LA MATRICE 


Se si hanno molti dati interrelati, 
conviene assegnarli a una matrice, 
anziché disperderli in più variabili. 

In questo modo il computer 
può ripescarli con facilità 

L’uso di matrici per contenere informa¬ 
zioni all’intemo di un programma è stato 
in parte illustrato a pagina 152. Le matri¬ 
ci, in BASIC, sono uno strumento davve¬ 
ro efficace, ma quelle a due dimensioni si 
dimostrano spesso ancora più utili, per 
archiviare molti dati interrelati. 

Si può paragonare una matrice a due di¬ 
mensioni (o bidimensionale) a una casset¬ 
tiera da muro, composta da diverse file di 
piccoli scomparti, ognuno dei quali con¬ 
tiene un elemento d’informazione. È un 
modo comodo per archiviare dati, poiché 
consente di accedere a un qualsiasi ele¬ 
mento, semplicemente indicandone la ri¬ 


ga e la colonna. 

Riferendosi alla figura 1, la “matrice” 
cassettiera può contenere veri articoli (vi¬ 
ti, in questo caso): numerando le righe e 
le colonne è facile individuare lo scompar¬ 
to che contiene le viti di ottone da 38 mm, 
ad esempio. In questo caso il dato nella 
matrice è costituito dal numero delle viti 
in ogni scatola. Le matrici del BASIC, pe¬ 
rò, contengono informazioni astratte, co¬ 
me ad esempio il numero dei concessiona¬ 
ri d’auto per ogni marca in ogni nazione. 

Informazioni di questo genere sono 
spesso raccolte come risultato di un’inda¬ 
gine ed è questa la base del programma 
qui esaminato. Comunque, la struttura 
del programma è la stessa per ogni matri¬ 
ce a due dimensioni, a prescindere dal ti¬ 
po di informazione contenuta. 

A titolo d’esempio, supponiamo che un 
insegnante faccia un’indagine sugli ani¬ 
mali posseduti da un gruppo di bambini. 


Prima occorre stilare un elenco dei bam¬ 
bini e poi, a fianco di ciascun nome, il nu¬ 
mero di animali di ciascun tipo posseduto. 
L’elenco potrebbe essere questo: 

Marta: 2 canarini, 1 coniglio; 

Guido: 1 cane, 4 pesciolini; 

Luisa: 2 criceti, 1 gatto; 

Gigi: 1 cane, 1 gatto, 1 criceto; 

Roberto: 1 pulcino, 1 coniglio, 

2 pesciolini. 

Tuttavia, in una lista di questo tipo, è 
piuttosto difficile estrarre informazioni 
del tipo “quanti possiedono gatti” o “chi 
ha più di quattro animali”. Se l’elenco si 
allunga, la difficoltà cresce ancor più. 

Un metodo di gran lunga migliore è 
scrivere le informazioni sotto forma di ta¬ 
bella o di grafico, riportando i nomi degli 

1. Le matrici sono utili per smistare 
piccoli articoli come queste viti 



269 
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animali lungo un lato e quelli dei bambini 
lungo l’altro. Ma così facendo, senza ren¬ 
dercene conto, abbiamo predisposto una 
matrice a due dimensioni! 

Con una quantità di dati piccola come 
questa, semplici statistiche si possono fa¬ 
re a mente, ma se i dati sono tanti, un 
computer diventa indispensabile. Se l’in¬ 
dagine, anziché a una sola classe si riferis¬ 
se all’intera scuola, ci vorrebbe un bel po’ 
di tempo per controllare manualmente 
chi abbia almeno un gatto o i nomi di quel¬ 
li che hanno criceti. Il computer ci mette 
pochi secondi. 


PREDISPORRE LA MATRICE 


Il passo successivo consiste nell’immette- 
re le informazioni nel computer. Alle pa¬ 
gine 152-155, si è visto come predisporre 
e usare una semplice matrice a una di¬ 
mensione. Le matrici a due dimensioni so¬ 
no molto simili e comportano solo un po’ 
più di tempo per la preparazione. 

Una matrice semplice può essere scrit¬ 
ta nella forma A(N), dove N è il numero di 
elementi che la compongono; una matrice 
a due dimensioni si indica con A(R,C), dove 
R è il numero delle righe e C quello delle 
colonne. In effetti, potremmo anche scri¬ 
vere A(C,R), con le colonne prima delle ri¬ 
ghe: basta essere coerenti e, una volta 
adottata una notazione, attenervisi. 

Adesso, pur disponendo di una matrice 
a due dimensioni, occorre definire due 
matrici semplici per contenere le intesta¬ 
zioni delle colonne e delle righe: nel no¬ 
stro caso, una matrice contiene i nomi dei 
bambini e un’altra i nomi degli animali. 
La matrice a due dimensioni serve a con¬ 
tenere i dati. 

Indichiamo le matrici semplici con 
PET$(C) e CH$(R) e la matrice dei dati con 
N(R,C). Un’ultima matrice, PT(R), contiene 
il numero totale di animali per ogni riga. 

Sullo Spectrum le matrici sono indica¬ 
te, rispettivamente, con p$(c), c$(r), n(r,c) 
e p(r), dato che sono ammessi soltanto no¬ 
mi di una sola lettera. Il programma non 
gira sullo ZX81, per la difficoltà di immet¬ 
tere tutti i dati. Ecco il programma per 
DIMensionare le matrici e leggere le DATA: 


[glH 


lTH 


U 


100 C = 7: R = 5 

110 DIM PET$(C), CH$(R), N(R,C), PT(R) 

120 FOR J = 1 TO C: READ PETS(J): NEXT 
130 FOR J = 1 TO R: READ CH$(J): NEXT 
140 FOR J = 1 TO R 
150 FOR K = 1 TO C 
270 160 READ N(J,K): NEXT K: NEXT J 
I 3000 DATA CANARINO,GATTO,CANE, 

PESCIOLINO,CRICETO,CONIGLIO,PULCINO 
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ri ’r. rfì 


Lm 

■ J 


2. La disposizione più conveniente, per 
queste palline, è in righe secondo il co¬ 
lore e in colonne secondo la dimensione 

3010 DATA MARTA,GUIDO,LUISA,GIGI, 
ROBERTO 

3020 DATA2,0,0,0,0,0,1 
3030 DATA0,0,1,4,0,0,0 
3040 DATA0,1,0,0.0,2,0 
3050 DATA0.1,1,0,0,1,0 
3060 DATA0,0,0,2,1,0,1 



100 LET c = 7: LET r = 5 
110 DIM p$(c,7): DIM c$(r,5): DIM n(r,c): DIM 
P<r) 

120 FOR j = 1 TO c: READ p$G): NEXT j 
130 FOR j = 1 TO r: READ c$(j): NEXTj 
140 FOR j = 1 TO r 
150 FOR k = 1 TO c 
160 READ r»(j,k): NEXT k: NEXT j 
3000 DATA "CANARINO”, “GATTO”, “CANE”, 
"PESCIOLINO”, "CRICETO”, “CONIGLIO”, 
"PULCINO” 

3010 DATA "MARTA", “GUIDO", “LUISA", 
“GIGI", "ROBERTO" 

3020 DATA 2,0,0,0,0,0,1 
3030 DATA 0,0,1,4,0,0,0 
3040 DATA 0,1,0,0,0,2,0 
3050 DATA 0,1,1,0,0,1,0 
3060 DATA 0,0,0,2,1,0,1 

Per facilitare l’adattamento del program¬ 
ma (non è detto che altre applicazioni ab¬ 
biano il medesimo numero di elementi), 
sono state usate le variabili R e C. Infatti, 
basta cambiare i valori alla linea 100 e, 
naturalmente, le informazioni nelle frasi 
DATA. 

Si noti la sistemazione delle informazio¬ 
ni nelle DATA: una prima frase (linea 3000) 
per le intestazioni delle colonne, una se¬ 
conda per le intestazioni delle righe, se¬ 
guono quindi tante frasi quante sono le ri¬ 
ghe della matrice centrale. Si noti che oc¬ 
corre scrivere un dato per ogni elemento 
della matrice, anche se esso vale zero, al¬ 
trimenti il BASIC segnala un errore del 
tipo “OUT OF DATA” (dati insufficienti). 

Ora che i dati sono inseriti nel compu¬ 
ter, va deciso cosa farne. Si può prevede¬ 
re ogni sorta di opzioni possibili, tanto è il 
computer a fare tutto il lavoro. 


IL MENU 


La miglior forma per presentare le varie 
opzioni consiste in un menu, che, nel caso 
dell’indagine sugli animali, potrebbe esse¬ 
re il seguente: 



300 LET found = 0: CLS 
310 PRINT" “MENU” 


320 PRINT' “1 ELENCO ANIMALI" 

330 PRINT' “2 ELENCO NOMI" 

340 PRINT “3 IMMISSIONE NOMI (ANIMALI)" 
350 PRINT "4 IMMISSIONE NOMI (BAMBINI)” 
360 PRINT “5 IMMISSIONE NUMERO DI 
ANIMALI” 

370 PRINT “6 VISIONE MATRICE” 

380 PRINT" "QUALE OPZIONE” 

390 INPUT a 

395 IF a<1 OR a > 6 THEN GOTO 390 
400 CLS 

410 GOSUB (a‘100 + 400) 

420 GOTO 300 

f^lfgl 

300 FOUND = 0:PRINT 
310 PRINT "MENUM" 

320 PRINT "1 ELENCO ANIMALI" 

330 PRINT “2 ELENCO NOMI" 

340 PRINT “3 IMMISSIONE NOMI (ANIMALI)" 
350 PRINT “4 IMMISSIONE NOMI (BAMBINI)” 
360 PRINT “5 IMMISSIONE NUMERO DI 
ANIMALI" 

370 PRINT “6 VISIONE MATRICE” 

380 PRINT "HQUALE OPZIONE” 

390 INPUT A 

395 IF A<1 OR A>6 THEN GOTO 390 
400 PRINT 

410 ON A GOSUB 500,600,700,800,900,1000 
420 GOTO 300 



300 FOUND = 0:CLS 
310 PRINT""MENU” 

320 PRINT' "1 ELENCO ANIMALI" 

330 PRINT' “2 ELENCO NOMI” 

340 PRINT “3 IMMISSIONE NOMI (ANIMALI)” 

350 PRINT “4 IMMISSIONE NOMI (BAMBINI)" 

360 PRINT "5 IMMISSIONE NUMERO DI 
ANIMALI” 

370 PRINT “6 VISIONE MATRICE” 

380 PRINT" “QUALE OPZIONE" 

390 INPUT A 

395 IF A<1 OR A>6 THEN 390 
400 CLS 

410 ON A GOSUB 500,600,700,800,900,1000 
420 GOTO 300 

ssu 

300 FOUND = 0:CLS 
310 PRINT® 45,"MENU” 

320 PRINT@100,“1 ELENCO ANIMALI" 

330 PRINT® 132,“2 ELENCO NOMI” 

340 PRINT® 164,“3 IMMISSIONE NOMI 
(ANIMALI)" 

350 PRINT® 196,"4 IMMISSIONE NOMI 
(BAMBINI)" 

360 PRINT® 228,"5 IMMISSIONE NUMERO DI 
ANIMALI” 

370 PRINT® 260,"6 VISIONE MATRICE" 271 

380 PRINT:PRINT“QUALE OPZIONE”; H 

390 INPUT A 
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3. In questa matrice si 
può vedere a colpo 
d’occhio il numero di 
concessionari d’auto per 
ogni marca e per 
ciascuna nazione 


395 IF A<1 OR A>6 THEN 390 
400 CLS 

410 ON A GOSUB 500,600,700,800,900,1000 
420 GOTO 300 


Come base di partenza, quanto esposto fi¬ 
nora può bastare: in seguito si possono 
aggiungere altre opzioni. Con la prima 
opzione si ottiene un semplice elenco de¬ 
gli animali, grazie a un ciclo che scorre la 
matrice PET$() o p$(). La seconda opzione 
agisce in modo analogo, ma per i nomina¬ 
tivi dei bambini. 


499 REM "OPZIONE 1" 

500 PRINT"''ELENCO ANIMALI” 

510 PRINT" 

520 FOR j = 1 TO c 
530 PRINT p$(j) 

540 NEXTj 

550 PRINT"“PREMERE UN TASTO PER 
TORNARE AL MENU" 

560 PAUSE 0 
570 RETURN 

599 REM "OPZIONE 2" 

600 PRINT"”ELENCO BAMBINI" 

610 PRINT" 

620 FOR j = 1 TO r 
630 PRINT c$(j) 

640 NEXT j 

650 PRINT""PREMERE UN TASTO PER 
TORNARE AL MENU” 

660 PAUSE 0 
670 RETURN 


[EIE 

499 REM # # OPZIONE 1 # # 

500 PRINT "ELENCO ANIMALI" 

510 PRINT 

520 FOR J = 1 TO C 
530 PRINT PET$(J) 

540 NEXT J 

550 PRINT "SPREMERE UN TASTO PER 
TORNARE AL MENU” 

560 GET A$:IF A$ = "” THEN 560 
570 RETURN 

599 REM # # OPZIONE 2 # # 

600 PRINT "ELENCO BAMBINI" 

610 PRINT 

620 FOR J = 1 TO R 
630 PRINT CH$(J) 

640 NEXT J 

650 PRINT "SPREMERE UN TASTO PER 
TORNARE AL MENU” 

660 GET AS:IF A$ = "" THEN 660 
670 RETURN 


La terza opzione è più interessante: digi¬ 
tando il nome di un animale, il computer 
visualizza il nominativo di chi ne possiede 
almeno uno, come pure il numero di ani¬ 
mali posseduti: 


499 REM "OPZIONE 1 

500 PRINT""ELENCO i 


510 PRINT" 

520 FOR J = 1 TO C 
530 PRINT PET$(J) 

540 NEXT 

550 PRINT""PREMERE UN TASTO PER 
TORNARE AL MENU” 

560 A = GET 
570 RETURN 

599 REM "OPZIONE 2" 

600 PRINT""ELENCO BAMBINI" 

610 PRINT" 

620 FOR J = 1 TO R 
630 PRINT CH$(J) 

640 NEXT 

650 PRINT"“PREMERE UN TASTO PER 
TORNARE AL MENU” 

660 A = GET 
670 RETURN 

□ 

499 REM "OPZIONE 1" 

500 PRINT(a 99 “ELENCO ANIMALI" 

510 PRINT:PRINT 

520 FOR J = 1 TO C 
530 PRINT PET$(J) 

540 NEXT 

550 PRINT:PRINT"PREMERE UN TASTO PER 
TORNARE AL MENU" 

560 IF INKEY$ = “" THEN 560 
570 RETURN 

599 REM "OPZIONE 2” 

600 PRINT(a 99,"ELENCO BAMBINI” 

610 PRINT:PRINT 

620 FOR J = 1 TO R 
630 PRINT CHS(J) 

640 NEXT 

650 PRINT:PRINT"PREMERE UN TASTO PER 
TORNARE AL MENU" 

660 IF INKEYS = “" THEN 660 
670 RETURN 


699 REM "OPZIONE 3" 

700 PRINT"“IMMETTERE NOME 
DELL'ANIMALE” 

705 DIM i$(7): INPUT LINE i$ 

710 PRINT “CHI HA UND"; i$ 

720 FOR j = 1 TOc 

730 IF p$(j) = i$ THEN LET tound = j 

740 NEXT j 

750 IF found = 0 THEN-PPWT'ANIMALE 
NON TR0V4J»™PR0VARE": GOTO 700 
760 FOR i-TTO r 
770 1F^n(j,found) >0 THEN PRINT 
c$(j);"D";n(j, found) 

775 NEXT j 


780 PRINT""PREMERE UN TASTO PER 
TORNARE AL MENU” 

785 PAUSE 0 
790 RETURN 

EIE 

699 REM # # OPZIONE 3 # # 

700 PRINT “IMMETTERE NOME 
DELL'ANIMALE" 

705 PRINT "PER OTTENERE UN ELENCO DEI 
POSSESSORI" 

710 INPUT P$ 

715 PRINT 

720 FOR J = 1 TO C 

730 IF PET$(J) = P$ THEN FOUND = J 


SCRIVERE LE SUBROUTINE 
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699 REM "OPZIONE 3" 

700 PRINT(®99,“IMMETTERE NOME 
DELL’ANIMALE” 

705 PRINT “PER OTTENERE UN ELENCO DEI 

POSSESSORIO’; 

710 INPUT P$ 

715 PRINT:PRINT 
720 FOR J=1 TOC 
730 IF PET$(J) = P$ THEN FOUND=J 
740 NEXT 

750 IF FOUND=0 THEN PRINT 
“ANIMALE NON TROVATO. 
RIPROVARE”:GOTO 700 
760 FOR J=1 TO R 
770 IF N(J,FOUND)>0 THEN PRINT 
CH$(J);“D";N(J,FOUND) 

775 NEXT 

780 PRINTrPRINT “PREMERE UN 
TASTO PER TORNARE AL MENU" 
785 IF INKEY$=“” THEN 785 
790 RETURN 


740 NEXT J 
750 IF FOUND = 

NON TROVATO. 
760 FOR J = 1 TO 
770 IF N(J,FOUND) 

775 NEXT J 
780 PRINT 
TORNARE AL 
785 GET A$:IF A$ = " 
790 RETURN 


PRINT "ANIMALE 
. GOTO 700 

PRINT 


TASTO PER 


699 REM "OPZIONE 3" 

700 PRINTHMMETTERE NOME 
DELL'ANIMALE” 

705 PRINT "PER OTTENERE UN ELENCO DEI 
POSSESSORI” 

710 INPUT P$ 

715 PRINT" 

720 FOR J = 1 TO C 

730 IF PETS(J) = P$ THEN FOUND = J 

740 NEXT 


750 IF FOUND = 0 PRINT "ANIMALE NON 
TROVATO. RIPETERE":GOTO 700 
760 FOR J = 1 TO R 
770 IF N(J,FOUND)>0 PRINT 
CH$(J);“D";N(J t FOUND) 

775 NEXT 

780 PRINT"“PREMERE UN TASTO PER 
TORNARE AL MENU” 

785 A = GET 
790 RETURN 


Questa routine è più com¬ 
plessa e merita particolare 
attenzione. La linea 710 
memorizza l’immissione 
nella variabile P$ (i$ sul¬ 
lo Spectrum). Supponia 
mo che si digiti “GAT¬ 
TO”, cosicché P$ = 
“GATTO” (o i$ = “GAT¬ 
TO”). Le linee da 720 
a 740 scorrono l’in¬ 
tera lista di animali 
il nome “GATTO”. Se lo trova¬ 
no, alla variabile TROV viene assegnato il 
numero della colonna corrispondente. Nel 
nostro caso si ha TROV = 2, poiché GATTO 
è nella colonna 2. Se, invece, il computer 
raggiunge la linea 750 con TROV pari a ze¬ 
ro (valore assegnato nella linea 300), allo¬ 
ra il nome digitato non è nella lista e si 
passa a una nuova richiesta. 

Le linee da 760 a 775 passano in rasse¬ 
gna ogni elemento della colonna 2: se vie¬ 
ne trovato un elemento maggiore di zero, 
la persona corrispondente alla riga in esa¬ 
me possiede uno o più gatti e il nominati¬ 
vo è visualizzato assieme al numero di 
gatti posseduti. 

Si veda se si riesce a seguire, sul listato, 
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cosa accade a ogni passo. 

L’opzione 4 serve per ottenere un elen¬ 
co degli animali posseduti da una perso¬ 
na, immettendone il nominativo. Il proce¬ 
dimento è identico a quello precedente, 
con la differenza che adesso il computer 
analizza una particolare riga della matri¬ 
ce, anziché una sua colonna. 



799 REM "OPZIONE 4" 

800 PRINT""IMMETTERE IL NOME” 

805 DIM f$(5): INPUT LINE f$ 

810 PRINT f$; “□POSSIEDE I SEGUENTI 
ANIMALI:" 

815 PRINT" 

820 FOR j = 1 TO r 

830 IF c$Q) = f$ THEN LET found =j 

840 NEXT j 

850 IF found = 0 THEN PRINT"“NOMINATIVO 
NON TROVATO. RIPROVA”: GOTO 800 
860 FOR j = 1 TOC 
870 IF n(foundj) > 0 THEN PRINT 
n(found,j);“D”;p$(j) 

875 NEXT j 

880 PRINT"“PREMERE QUALSIASI TASTO 
PER TORNARE AL MENU” 

885 PAUSE 0 
890 RETURN 

[C= [E 

799 REM # # OPZIONE 4 # # 

800 PRINT "IMMETTERE IL NOME" 

805 PRINT “ELENCO DEGLI ANIMALI 

APPARTENENTI A" 

810 INPUT F$ 

815 PRINT 

820 FOR J = 1 TO R 

830 IF CH$(J) = F$ THEN FOUND = J 

840 NEXT J 

850 IF FOUND = 0 THEN PRINT 

“NOMINATIVO NON TROVATO. RIPROVA”: 
GOTO 800 

860 FOR J = 1 TO C 
870 IF N(FOUND,J)>0 THEN PRINT;N 
(FOUND,J);“D”;PET$(J) 

875 NEXT J 

880 PRINT “PREMERE QUALSIASI TASTO 
PER TORNARE AL MENU" 

885 GET A$:IF A$ = “” THEN 885 
890 RETURN 



799 REM "OPZIONE 4" 

800 PRINT""IMMETTERE IL NOME" 

805 PRINT “ELENCO DEGLI ANIMALI 

APPARTENENTI A” 

810 INPUT F$ 

815 PRINT" 

820 FOR J = 1 TO R 

274 830 IF CH$(J) = F$ THEN FOUND = J 
ggÉ 840 NEXT 

I 850 IF FOUND = 0 PRINT"“NOMINATIVO NON 


TROVATO. RIPROVA”: GOTO 800 
860 FOR J = 1 TO C 

870 IF N(FOUND,J)>0 PRINT;N(FOUND,J); 

“□”;PET$(J) 

875 NEXT 

880 PRINT""PREMERE QUALSIASI TASTO 
PER TORNARE AL MENU" 

885 A = GET 
890 RETURN 


E 


799 REM "OPZIONE 4" 

800 PRINT@99,"IMMETTERE IL NOME" 

805 PRINT “ELENCO DEGLI ANIMALI 

APPARTENENTI A" 

810 INPUT F$ 

815 PRINT:PRINT 

820 FOR J = 1 TO R 

830 IF CH$(J) = F$ THEN FOUND = J 

840 ENXT 

850 IF FOUND = 0 THEN PRINT:PRINT 
“NOMINATIVO NON TROVATO. RIPROVA": 
GOTO 800 

860 FOR J = 1 TO C 
870 IF N(FOUND,J)>0 THEN PRINTN 
(FOUND, J);“D”;PET$(J) 

875 NEXT 

880 PRINT:PRINT "PREMERE QUALSIASI 
TASTO PER TORNARE AL MENU” 

885 IF INKEY$ = “” THEN 885 
890 RETURN 

L’opzione 5 serve per visualizzare un 
elenco di tutti coloro che possiedono un 
numero di animali pari o maggiore a quel¬ 
lo immesso. Ecco la relativa subroutine: 



899 REM "OPZIONE 5" 

900 PRINT'-IMMETTERE UN NUMERO PER 
ELENCARE TUTTI COLORO CHE 
POSSIEDONO ALMENO ALTRETTANTI 
ANIMALI” 

910 INPUT a 
915 PRINT" 

920 FOR j = 1 TO r 
925 FOR k = 1 TO c 
930 LET p(j) = p(j) + n(j,k) 

935 NEXT k 

940 IF p(j)> = a THEN PRINT c$(j);“D”; 

p(j): LET found = 1 
945 LET p(j) = 0 
950 NEXT j 

955 IF found = 0 THEN PRINT" 

"NESSUNO HAD”;a;"nO PIÙ ANIMALI" 
960 PRINT""PREMERE QUALSIASI TASTO 
PER TORNARE AL MENU" 

970 PAUSE 0 
980 RETURN 

0 [E 

899 REM # # OPZIONE 5 # # 

900 PRINT "IMMETTERE UN NUMERO PER 


ELENCARE TUTTI COLORO CHE 
POSSIEDONO ALMENO ALTRETTANTI 
ANIMALI" 

910 INPUT A 
915 PRINT 
920 FOR J = 1 TO R 
925 FOR K = 1 TO C 
930 PT(J) = PT(J) + N(J,K) 

935 NEXT K 

940 IF PT(J)> = A THEN PRINT CH$(J);"n"; 

PT$:F0UND = 1 
945 PT(J) = 0 
950 NEXT J 

955 IF FOUND = 0 THEN PRINT 

“NESSUNO HA”; A; “0 PIÙ ANIMALI” 

960 PRINT “SPREMERE QUALSIASI TASTO 
PER TORNARE AL MENU" 

970 GET A$:IF A$ = “" THEN 970 
980 RETURN 


899 REM "OPZIONE 5" 

900 PRINT'"IMMETTERE UN NUMERO PER 

ELENCARE.COLORO CHE POSSIEDONO 

ALMENO ALTRETTANTI ANIMALI” 

910 IMPUT A 
915 PRINT" 

920 FOR J = 1 TO R 
925 FOR K = 1 TO C 
930 PT(J) = PT(J) + N(J,K) 

935 NEXT K 

940 IF PT(J)> = A THEN PRINTCH$(J);“D”; 

PT(J): FOUND = 1 
945 PT(J) = 0 
950 NEXT J 

955 IF FOUND = 0 PRINT"“NESSUNO HAD”; 

A;“D0 PIÙ ANIMALI" 

960 PRINT"“PREMERE QUALSIASI TASTO 
PER TORNARE AL MENU” 

970 A = GET 
980 RETURN 


E 


899 REM "OPZIONE 5" 

900 PRINTw 64,"IMMETTERE UN NUMERO 
PER ELENCARE TUTTI COLORO CHE 
POSSIEDONO ALMENO ALTRETTANTI 
ANIMALI" 

910 INPUT A 
915 PRINT:PRINT 
920 FOR J = 1 TO R 
925 FOR K = 1 TO C 
930 PT(J) = PT(J) + N(J,K) 

935 NEXT K 

940 IF PT(J)> = A THEN PRINTCH$(J);“D"; 

PT(J):FOUND = 1 
945 PT(J) = 0 
950 NEXT J 

955 IF FOUND = 0 THEN PRINT PRINT 
"NESSUNO HA"; A; "0 PIÙ ANIMALI" 

960 PRINT:PRINT “PREMERE QUALSIASI 
TASTO PER TORNARE AL MENU” 
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970 IF INKEY$ = “” THEN 970 
980 RETURN 



nidificati? 

L’impiego di matrici serve anche a 
impratichirsi con le istruzioni IF ... 
THEN e i cicli FOR ... NEXT. La parte 
più delicata, nell’uso delle matrici, è 
strutturare con precisione i cicli FOR 
... NEXT nidificati: è facilissimo 
sbagliarsi e ingarbugliare le righe 
con le colonne. Si dia un’occhiata 
alle linee che servono alla lettura dei 
dati per la matrice, nella prima 
parte del programma (pagine 
270-271). Ogni linea di DATA 
corrisponde a una riga della matrice, 
perciò il ciclo di lettura delle righe è 
quello esterno. Se le linee di DATA 
contenessero invece le colonne della 
matrice, allora quello esterno 
sarebbe il ciclo di lettura per le 
colonne. Ciò vale sia che la matrice 
venga indicata con N(R,C), o con 
N(C,R,): l’ordine degli indici C e R non 
ha importanza, purché rimanga lo 
stesso in tutto il programma. Le > 
intestazioni di righe e colonne si 
preparano più accortamente 
con cicli a parte. 


Prima di operare un confronto tra il nu¬ 
mero immesso e il totale per ogni nomina¬ 
tivo, occorre calcolare questo totale: le li¬ 
nee 920 e 925 predispongono i cicli per 
scorrere le righe e le colonne della matri¬ 
ce, mentre la linea 930 calcola il totale di 
animali per ogni riga. I totali vengono 
raccolti nella matrice PT() o, sullo Spec- 
trum, p(). Se il totale per ogni riga è mag¬ 
giore o uguale al numero immesso, il cor¬ 
rispondente nominativo viene visualizza¬ 
to, con accanto il numero di animali pos¬ 
seduti. 

Se viene trovato almeno un nominativo, 
il “flag” TROV è posto a 1. Ma se, giunti 
alla linea 955, TROV vale ancora zero, vuol 
dire che nessun bambino risponde al re¬ 
quisito immesso e tale evento viene se¬ 
gnalato con un messaggio. 

L’ultima opzione, la 6, visualizza la ma¬ 
trice sullo schermo. Siccome è difficile far 
entrare i nomi degli animali in cima alla 
tabella, al loro posto compaiono dei nume¬ 
ri. Al contrario, i nomi dei possessori ven¬ 
gono visualizzati per intero. 



999 REM "OPZIONE 6" 

1000 PRINT '"NOMINATIVI”, “ANIMALI" 

1010 PRINT 'TAB 9; 

1015 FOR j = 1 TO c 
1020 PRINT 
1025 NEXT j: PRINT 
1030 FOR j = 1 TO r 
1035 PRINT 'c$(j);TAB 9; 

1040 FOR k = 1 TO c 
1050 PRINT n(j,k);“DD"; 

1060 NEXT k 
1065 NEXT j 

1070 PRINT "“PREMERE QUALSIASI TASTO 
PER TORNARE AL MENU” 

1080 PAUSE 0 
1090 RETURN 

SE 

999 REM # # OPZIONE 6 # # 

1000 PRINT "NOMINATIVIVANIMAUS” 
1010 PRINT TAB(6); 

1015 FOR J = 1 TO C 
1020 PRINT J;SPC(2); 

1025 NEXT J:PRINT 
1030 FOR J = 1 TO R 
1035 PRINT CH$(J);TAB(6); 

1040 FOR K = 1 TO C 
1050 PRINT N(J,K);SPC(2); 

1060 NEXT K:PRINT:NEXT J 
1070 PRINT"^PREMERE QUALSIASI TASTO 
PER TORNARE AL MENU" 

1080 GET A$:IF A$ = “’THEN 1080 
1090 RETURN 

sa 

Per adattare il programma allo schermo 
del Vie 20, sono necessarie due modifiche 
alla versione per il Commodore 64: 

1020 PRINT J; 

1050 PRINT N(J,K); 

La routine inizia visualizzando le intesta¬ 
zioni principali “NOMINATIVI” e “ANI¬ 
MALI”, poi numera gli animali da 1 a 7. 
Se nella propria statistica si ha un nume¬ 
ro di colonne diverso da 7, le spaziature 
alle linee 1020 e 1050 vanno cambiate. Le 
linee successive visualizzano la matrice 
una riga per volta, con a sinistra il nome 
del bambino e in ogni colonna il numero di 
animali. 

Il 

999 REM"0PZI0NE 6" 

1000 PRINT'“NOMINATIVr,“ANIMALI" 

1010 PRINT'TAB(9); 

1015 FOR J = 1 TO C 
1020 PRINT;J;SPC(4); 

1025 NEXT 
1030 FOR J = 1 TO R 


1035 PRINT' CH$(J);TAB(9); 

1040 FOR K = 1 TO C 
1050 PRINT;N(J,K);SPC(4); 

1060 NEXT K,J 

1070 PRINT""PREMERE QUALSIASI TASTO 
PER TORNARE AL MENU" 

1080 A = GET 
1090 RETURN 

ssu 

999 REM "OPZIONE 6" 

1000 PRINT@32,"NOMINATIVI”,“ANIMALI” 
1010 PRINT@72,; 

1015 FOR J = 1 TO C 
1020 PRINTJ; 

1025 NEXT:PRINT 

1030 FOR J = 1 TO R 

1035 PRINT:PRINT CH$(J)TAB(8); 

1040 FOR K = 1 TO C 
1050 PRINT N(J,K); 

1060 NEXT K,J 

1070 PRINT:PRINT:PRINT“PREMERE 
QUALSIASI TASTO PER TORNARE AL 
MENU" 

1080 IF INKEY$ = “” THEN 1080 
1090 RETURN 


ADATTAMENTO DELLA MATRICE 


Talvolta, si usa indicare una matrice im¬ 
piegata in questo modo col termine data¬ 
base. Si possono creare database per ogni 
sorta di archiviazione. Un esempio po¬ 
trebbe essere una statistica sul mondo 
animale, raccogliendo dati relativi a un 
gruppo di animali osservati e al loro am¬ 
biente. Se viene usata una matrice per va¬ 
ri periodi dell’anno o per diverse zone 
d’osservazione, si potranno ricavare sta¬ 
tistiche sulla distribuzione delle specie. 

Un’altra applicazione potrebbe riguar¬ 
dare un database che serva a elencare la 
quantità di grassi, carboidrati, proteine e 
calorie in diversi tipi di cibo. Si potrebbe¬ 
ro così distinguere facilmente tutti i cibi 
che possiedono più di una certa quantità 
di proteine, o che hanno meno di un certo 
numero di calorie o, ancora, esaminare la 
composizione di un particolare alimento. 

Un uso ancor più immediato delle ma¬ 
trici è la registrazione delle merci in un 
magazzino. In tal caso, le righe e le colon¬ 
ne possono riferirsi a scaffali e a posizioni 
reali degli oggetti, mentre il dato rappre¬ 
senta la quantità in giacenza. Il program¬ 
ma, che dovrà prevedere opzioni per l’ag¬ 
giornamento dei dati in base alle vendite 
e agli acquisti, potrà essere impiegato per 
visualizzare un avviso, se il livello delle 
scorte scende al di sotto di un minimo 
prefissato. Ma, a questo punto, ognuno 
avrà già in mente le applicazioni più adat¬ 
te per le proprie esigenze. 
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©Dii IMMETTERE 
IL ©©DICE MICCHI» 


■ 

TROVARE UNA COLLOCAZIONE 

AL CODICE MACCHINA 

■ 

1 MONITOR PER CODICE MACCHINA 

■ 

USO DEI MONITOR 

■ 

ESECUZIONE DEI PROGRAMMI 


All’accensione, il computer 
entra direttamente in BASIC. Può 
essere utile, quindi, un programma 
per l'inserimento e l’esecuzione 
di programmi in codice macchina 


Se non si possiedono appositi programmi 
per la stesura e l’esecuzione di program¬ 
mi in codice macchina (quali il package 
CHAMP, fornito in dotazione a INPUT), 
la programmazione in codice macchina 
presenta uno strano paradosso. Infatti, 
nonostante il codice macchina sia quello 
usato dallo stesso microprocessore, oc¬ 
corre un programma in BASIC per im¬ 
metterlo ed eseguirlo. Attraverso delle 
POKE, il codice macchina va depositato, un 
byte alla volta, nella memoria del compu¬ 
ter. Per di più, sullo Spectrum, sullo 
ZX81 e sui Commodore non si può usare 
direttamente la notazione hex, ma solo 
quella decimale, obbligando a una ulterio¬ 
re conversione di per sé inutile. 

Negli Acom, invece, è addirittura in¬ 
corporato un ‘assembler’ per la conver¬ 
sione delle istruzioni in codice macchina. 
Quanto esposto in queste pagine, dunque, 
concerne particolarmente chi possiede un 
Dragon o un Tandy (per i quali non è for¬ 
nita una versione di CHAMP adatta) o chi 
desideri includere sezioni di codice mac¬ 
china nei propri programmi BASIC. 


COME COLLOCARE IL CODICE MACCHINA 


Una scelta importante, prima di immette¬ 
re un programma in codice macchina, è 
dove collocarlo. Infatti, non lo si può 
mettere in un’area qualsiasi rischiando di 
interferire con locazioni riservate al fun¬ 
zionamento dello stesso computer. 

Anche nell’adoperare l’area BASIC oc¬ 
corre andare cauti. Siccome ima routine 
in codice macchina può essere richiamata 
da un programma in BASIC, questo po¬ 
trebbe sovrapporsi al codice macchina du¬ 
rante l’esecuzione, compromettendo il 
funzionamento dell’intero programma. 

Con programmi di piccole dimensioni, 
276 si possono usare aree quali il buffer per le 
cassette, purché il programma non preve¬ 
da l’impiego del registratore. 



Nello Spectrum, ad esempio, si può utiliz¬ 
zare l’area riservata alla grafica definita 
dall’utente (tra FF58 e FFFF nel modello 
48K), se non è previsto l’uso di UDG. In 
genere, però, i programmi in codice mac¬ 
china vengono collocati tra l’area UDG e 
il termine dell’area BASIC e intervenen¬ 
do sul valore del puntatore al margine su¬ 
periore della memoria (RAMTOP). L’a¬ 
rea BASIC, non potendo oltrepassare 
RAMTOP, non rischia così di sovrapporsi 
al codice macchina. 

RAMTOP è una variabile di sistema, il 
cui valore è contenuto nelle locazioni di 
memoria 5CB2 e 5CB3. Per accorciare 
l’area BASIC, basta depositare in queste 
due locazioni un valore più basso. Tutta¬ 
via il BASIC dello Spectrum possiede un 
comando CLEAR, col quale si ottiene in so¬ 
stanza il medesimo effetto. Basta farlo 
seguire dall’indirizzo decimale al quale si 
desidera far scendere RAMTOP. 

CLEAR azzera il display file come un CLS 
e tutte le variabili, riassegna la posizione 
di PLOT a 0,0 in basso a sinistra, ripristina 
il valore iniziale del puntatore alle DATA e 
pulisce lo stack, ponendolo subito sotto il 
nuovo valore di RAMTOP. Su uno Spec¬ 
trum 16K si usa il comando: 

CLEAR 31999 

per abbassare RAMTOP a 31.999 (ossia 
7CFF in hex), riservando così 600 byte 
(tra RAMTOP e fino al termine dell’area 
UDG 32.600) ai programmi in codice mac¬ 
china. Sul modello 48K si usa il comando: 

CLEAR 63999 

Anche questo serve per abbassare RAM¬ 
TOP, ma stavolta a 63.999 (o F9999 in 
hex). I programmi in codice macchina 
possono quindi iniziare da 64.000 (FA00 
in hex), lasciando più dello stretto neces¬ 
sario per la maggior parte delle esigenze. 
Probabilmente si occuperà uno spazio mi¬ 
nore di quello riservato, ma è sempre me¬ 
glio abbondare un po’ nel caso occorresse 
in seguito correggere o ampliare il sotto¬ 
programma. 

Naturalmente, per programmi in codi¬ 
ce macchina più lunghi, si può abbassare 
ulteriormente RAMTOP. In teoria, si po¬ 


trebbe arrivare fino a CLEAR 23821, ma in 
pratica un limite così basso di RAMPTOP 
non lascerebbe spazio sufficiente neppure 
per una sola linea di BASIC. 



Sullo ZX81, RAMTOP può essere abbas¬ 
sata intervenendo sui valori conservati 
nelle locazioni di memoria 16.388 e 
16.389, riservando così un’area ai pro¬ 
grammi in codice macchina, senza il ri¬ 
schio che essi vengano sovrapposti dal 
BASIC. Il problema con questo metodo è 
che non consente di trascrivere su nastro 
i programmi conservati in tale zona di 
memoria. 

In alternativa, si possono depositare 
brevi programmi in codice macchina (lun¬ 
ghi meno di 32 byte), nel buffer della 
stampante, che va dalla locazione 16.444 
alla 16.476, purché non sia previsto l’im¬ 
piego della stampante. 

Esistono anche altre piccole aree in cui 
depositare i propri programmi in codice 
macchina, ma anche in tal caso non li po¬ 
tremmo poi conservare. Sullo ZX81, quin¬ 
di, non rimane altro che usare l’area dei 
programmi del BASIC, pur mantenendoli 
protetti da sovrapposizioni. Possono ve¬ 
nir immessi sotto forma di frasi REM, di 
matrici o di stringhe di caratteri. In gene¬ 
re il primo sistema risulta il migliore. 

Per immettere un programma mediante 
frasi REM, ne va prima calcolata la lun¬ 
ghezza in byte. Poi, nella prima linea del 
proprio programma in BASIC, va inserita 
una REM, seguita da un certo numero di 
caratteri, ad esempio punti o asterischi il 
cui numero deve essere almeno pari al nu¬ 
mero dei byte del programma in codice 
macchina. Quale sia il carattere usato per 
riempire la linea REM è irrilevante, ma 
conviene adoperare una sequenza di ca¬ 
ratteri identici, per meglio individuare la 
fine del programma in codice macchina, 
esaminando la memoria. A questo punto, 
nelle locazioni di memoria così preparate, 
va inserito il programma in codice macchi¬ 
na, un byte alla volta. Se la linea REM è la 
prima del programma BASIC, l’area inte¬ 
ressata inizia dalla locazione 16.514. Per 
creare spazio protetto si può anche dimen¬ 
sionare una matrice. La linea BASIC: 
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10 DIM A(100) 

riserva 500 locazioni di memoria, nell’a¬ 
rea delle variabili. Per ogni elemento del¬ 
la matrice, lo ZX81 libera cinque locazioni 
atte a contenere numeri a virgola flut¬ 
tuante. In questo caso, per verificare da 
dove iniziare la memorizzazione del codi¬ 
ce macchina, occorre leggere il valore del¬ 
la variabile di sistema VARS, situata nel¬ 
le locazioni 16.400 e 16.401. Basta un co¬ 
mando diretto del tipo: 

PRINT PEEK 16400 + PEEK 16401 +6 
Si ottiene così l’indirizzo iniziale dell’area 
protetta creata, dal quale iniziare l’inseri¬ 
mento, byte per byte, del proprio pro¬ 
gramma. Nel comando, all’indirizzo viene 
sommato 6 per oltrepassare altrettante 
locazioni riservate alla matrice. Un’altra 
variante è creare spazio per una stringa 
con una linea di BASIC del tipo: 

10 LET S$ = ".” 

con un numero di punti superiore a quello 
dei byte nel programma in codice macchi¬ 
na. Anche questo spazio protetto compa¬ 
re all’inizio dell’area delle variabili e se ne 
trova l’indirizzo iniziale sommando sei al 
valore che si ottiene con PEEK VARS: le 
sei locazioni, stavolta, contengono il no¬ 
me della stringa. 

Il problema con questi due ultimi meto¬ 
di è che, premendo IOLEARI o eseguendo un 
programma BASIC, l’area delle variabili 
viene ripulita, perdendo così il program¬ 
ma in codice macchina. 


Sul Commodore 64, l’area di memoria da 
C000 a CFFF in hex (da 49.152 a 53.247 
in decimale), è riservata al codice macchi¬ 
na e di norma quest’area è sufficiente per 
la maggior parte dei sottoprogrammi. 
Nel Vie 20 non esiste un’area riservata. 

Programmi brevi, non più lunghi di 191 
byte, si possono depositare, sia col C 64 
che col Vie 20, nel buffer del registratore, 
purché non si intenda adoperarlo. Questo 
buffer va dalla locazione 033C alla 03FB 
(hex) o da 828 a 1.019 (decimale). 

Se occorre più spazio, si può accorciare 
l’area BASIC, lasciandovi al di sopra 
un’area protetta, come fa il comando 
CLEAR su altri apparecchi. Sul Commodo¬ 
re 64 ciò si ottiene depositando, ad esem¬ 
pio il valore 32, nelle locazioni 52 e 56. 
L’area BASIC viene così abbassata a 
8.192, liberando 32.768 byte per il codice 
macchina, non sovrapponibili dal BASIC, 
278 a i quale restano circa 6.144 byte. 

Fatto ciò, si digit a CLR (le tre lettere C, 
L e R e non il tasto ICLRl col quale si com¬ 


prometterebbe l’eventuale programma 
contenuto nell’area BASIC). 

Le locazioni di memoria 52 e 56 conten¬ 
gono le parti “alte” degli indirizzi che sta¬ 
biliscono il limite superiore dell’area BA¬ 
SIC. I byte “bassi”, o meno significativi, 
degli indirizzi, contenuti in 51 e 55, valgo¬ 
no di solito 0. Perciò, depositando il valo¬ 
re 32 nelle locazioni 52 e 56, si sposta il 
puntatore al limite superiore dell’area 
BASIC a 32x256 = 8.192. L’area BA¬ 
SIC può venire completamente annullata 
depositando in 52 e in 56 il valore 8, che 
abbassa il limite superiore a 2.048, ossia 
al fondo della stessa area. Si potrebbe 
usare un valore 0 per le POKE, ma in tal ca¬ 
so il Commodore non è più in grado di far 
niente per l’impossibilità di immettere 
qualsiasi linea di BASIC. 

Alternativamente, si può alzare il fondo 
dell’area BASIC e depositare il codice 
macchina nello spazio così riservato. Ciò 
si ottiene depositando opportuni valori 
nelle locazioni 43 e 44. Questi sono i byte 
relativi ai puntatori che segnano il fondo 
dell’area BASIC. Quest’ultimo potrebbe 
essere addirittura portato a 8.192, depo¬ 
sitando in 43 il valore 1 e in 44 il valore 
32, rendendo necessario fissare un nuovo 
indirizzo al BASIC (locazione 8.192) depo¬ 
sitandovi uno zero e liberando così abba¬ 
stanza spazio per routine in codice mac¬ 
china, sia sopra che sotto al BASIC. 

Dopo di ciò va digitato NEW, altrimenti 
si rischia di compromettere il funziona¬ 
mento di eventuali programmi nell’area 
BASIC. 

Sul Vie, RAMTOP può essere abbassa¬ 
to in quanto permette l’espansione di me¬ 
moria in uso. Con PEEK 44 si legge dov’è il 
fondo dell’area BASIC; il valore trovato 
(aumentato di 1 o 2) lo si usa nelle POKE, 
nelle locazioni 52 e 56, per lasciare un po’ 
di spazio al BASIC. 


E 


Per proteggere programmi in codice mac¬ 
china, si può semplicemente usare il co¬ 
mando CLEAR, che abbassa RAMTOP. In 
tal modo si riserva parte del BASIC, subi¬ 
to sopra RAMTOP. CLEAR, inoltre, azzera 
tutte le variabili numeriche e alfanumeri¬ 
che. Il formato del comando di solito è: 

CLEAR 200,30000 

Si abbassa così RAMTOP da 32.767 deci¬ 
male (&H7FFF in hex), a 30.000, liberan¬ 
do 2.767 byte per programmi in codice 
macchina. Su questi computer CLEAR svol¬ 
ge anche un’altra funzione: l’assegnazio¬ 
ne di spazio per le stringhe, la cui quanti¬ 
tà è data dal primo numero dopo la CLEAR. 
All’accensione del computer, questo ri¬ 


serva 200 byte (subito sotto RAMTOP) 
per le stringhe, uno spazio sufficiente per 
molte applicazioni, che può restare inva¬ 
riato anche quando si abbassa artificial¬ 
mente RAMTOP. Il limite RAMTOP può 
scendere quasi fino al limite dell’area gra¬ 
fica, anche se un po’ di spazio va pur sem¬ 
pre lasciato al BASIC per eseguire il co¬ 
mando. Su Dragon e Tandy anche lo stes¬ 
so limite dell’area grafica può venir spo¬ 
stato mediante l’istruzione PCLEAR. 

Con PCLEAR 1 si lascia una sola della pa¬ 
gine grafiche, cosicché la CLEAR può arri¬ 
vare, più o meno, a &HC40. Con PCLEAR 
8, invece, si abilitano tutte le otto pagine 
grafiche, per cui la CLEAR piò arrivare ap¬ 
pena a &H3680. Non usando il comando 
PCLEAR, il computer assegna automatica- 
mente quattro pagine grafiche, così con 
CLEAR si può liberare fino a &H1E80. 

Questi limiti dipendono per lo più da ciò 
che si ha in memoria: basta la presenza di 
un qualsiasi programma in BASIC per 
provocare un messaggio di esaurimento 
di memoria. Perciò, conviene non avvici¬ 
narsi troppo ai limiti massimi, dato che a 
un certo punto servirà pure un program¬ 
ma in BASIC con cui richiamare quello in 
codice macchina. In genere, capita rara¬ 
mente di dover andare oltre 30.000, con 
cui si liberano 2.767 byte. 

Se si vuole iniziare il programma in co¬ 
dice macchina a un indirizzo “tondo”, co¬ 
me ad esempio 30.000, va digitato: 

CLEAR 200,29999 

Il secondo numero dopo la virgola specifi¬ 
ca l’indirizzo più alto accessibile ai pro¬ 
grammi in BASIC, per cui le locazioni li¬ 
bere per programmi in codice macchina 
iniziano da quella subito superiore. 


MONITOR PER IL CODICE MACCHINA 


I seguenti programmi permettono di im¬ 
mettere il codice macchina, di conservare 
poi i programmi su nastro e di rileggerli 
in memoria. Prima di immettere il codice 
macchina, va impartito un appropriato 
comando CLEAR, dopodiché, trascritto e 
avviato il programma “monitor”, compa¬ 
re la richiesta dell’indirizzo iniziale. Con 
Spectrum, ZX81, Tandy e Dragon tale in¬ 
dirizzo deve corrispondere a quello speci¬ 
ficato con la CLEAR, aumentato di 1. 

Sui Commodore, il codice macchina de¬ 
ve iniziare da C000, salvo che il program¬ 
ma superi i 4.095 byte, nel qual caso oc¬ 
corre passare nell’area BASIC, previo de- 
sposito (con POKE) del valore 32 nelle loca¬ 
zioni 52 e 56. L’indirizzo iniziale della rou¬ 
tine in codice macchina diviene 8.192 de¬ 
cimale. Per il Vie 20, l’inizio dei program¬ 
mi in codice macchina dipende dall’espan- 













10 CODICE MACCHINA 10 


llllllllll 




w 









■ 

















IIIIIIIIIIIHH 


10 CODICE MACCHINA 10 

□ 

■■■■■■lllllllll 


sione di memoria in uso (si veda sopra). 
Con il Commodore non occorre aggiunge¬ 
re 1 all’indirizzo iniziale del codice mac¬ 
china, perché la varizione dei valori con¬ 
tenuti nelle locazioni 52 e 56 tiene già 
conto di ciò. Adesso si trascriva il moni¬ 
tor adatto al proprio computer: 


5 POKE 23658,8 
10 PRINT INVERSE 1;AT5,6;"D 
MONITOR PER SPECTRUMO” 

15 PRINT AT 8,4;“1:—DIMMISSIONED 
CODICE MACCHINA” 

20 PRINT AT 10,4;“2:—DVISIONED 
MEMORIA” 

30 PRINT AT 12,4;“3:—□SCRITTI!RAD 
BYTESDSUCNASTRO" 

70 LET A$ = INKEYS: IF A$<T OR A$> 

“3” THEN GOTO 70 

80 CLS : GOSUB 100 + 200*(VAL A$-1) 

90 RUN 

100 INPUT -INDIRIZZO DI PARTENZA?D”;SA 

110 INPUT LINE DS 

120 IF D$ = THEN GOTO 110 

125 IF D$(1) = "#” THEN RETURN 

127 IF LEN D$ = 1 THEN GOTO 110 

130 LET S$ = D$(1 TO 2) 

140 FOR N = 1 TO 2 

150 IF S$(N)>"9” THEN LET S$(N) = CHR 
$ (CODE S$(N) — 7) 

155 IFS$(N)>“?” OR S$(N)< 

"0” THEN PRINT FLASH 1 ;“CARATTERED 
NONDVALIDO": GOTO 110 
160 NEXT N 

170 POKE SA, (CODE S$(1)-48)”16 + 

CODE S$(2) — 48 
180 PRINT SA,D$( TO 2) 

190 LET D$ = D$(3 TO ) 

200 LET SA = SA +1 
210 GOTO 120 

300 INPUT “INDIRIZZOnDIDPARTENZA?D’; 
SA 

310 INPUT “STAMPANTED(S/N)?D"; LINE P 
$ 

320 LET ST = 2: IFP$ = "S” THEN LET ST = 3 
330 PRINT #ST;SA; 

340 FOR M = 0 TO 7 
350 LET H$ = “# #” 

360 LET H$(1) = CHR$ (INT (PEEK (SA 
+ M)/16) + 48) 

370 LET H$(2) = CHR$ (48 +PEEK (SA + M) 
— 16*(CODE H$(1 ) — 48» 

380 FOR N = 1 TO 2 

390 IF H$(N)>"9” THEN LET H$(N) = CHR 
$ (CODE H$(N) + 7) 

400 NEXT N 

410 PRINT #ST;TAB 7 + 3*M;H$; 

420 NEXT M 

280 440 LET SA = SA+ 8 

445 PRINT #ST: POKE 23692,0 
450 LET A$ = INKEYS: IF A$ = “” THEN 


GOTO 450 

460 IF A$ = CHR$ 13 THEN RETURN 
470 GOTO 330 

500 INPUT “INDIRIZZO DI PARTENZA?D";SA 
510 INPUT "NUMERO DI BYTES?D”;N 
520 INPUT “NOME DEL FILE7D"; LINE N$ 
530 IF LEN N$<1 OR LEN N$>10 THEN 
GOTO 520 

540 SAVE NSCODE SA,N 
550 RETURN 


440 LET SA = SA + 8 

450 LET A$ = INKEYS 

460 IF A$ = “" THEN GOTO 450 

470 IF A$ = CHRS 118 THEN RETURN 

480 GOTO 320 

[E 

5 POKE 53280,0:POKE 53281,0:HH$ = “0123 
456789ABCDEF” 

10 print “□BHMSSSSE"TAB 
(8)“1 : - □IMMISSIONEDCODICED 
MACCHINA” 

20 PRINT TAB(8)"BH 2:-□□□VISIONE 
□ MEMORIA" 

30 PRINT TAB(8)“aM3:-nSCRinURAn 
BYTESnSUD NASTRO" 

40 GET A$:IF A$<“1" OR A$>“3” THEN 
40 

50 ON VAL(AS) GOSUB 100,200,300 
60 GOTO 10 

100 INPUT “□INDIRIZZO DI PARTENZA^”; 
SA 

110 INPUT 

||||”;D$:IF DS = “"THEN 110 
120 IF DS = “ # " THEN RETURN 

125 W = 0:FOR Z = 1 TO 16:IF LEFT$(D$,1) 

= MID$(HH$Z1) THEN W = W + 1 

126 IF RIGHT$(D$,1 ) = MID$(HH$,Z, 

1) THEN W = W + 1 

127 NEXT:IF W<2 THEN 110 

130 A = ASC(DS) - 48:B = ASC(RIGHT$(D$, 

1 )) — 48 

140 C = B + 7*(B > 9) — (LEN(DS) = 2)”(16*(A 
+ 7*(A > 9))) 

150 POKE SA,C:PRINT "BSSHSSn 
□□□□□□□□□□□□□□□□□□ 
□□□□□□□□□□□□□□□□□□ 
□□□□"SA,D$ 

160 SA = SA + 1 :GOTO 110 
200 INPUT “□ INDIRIZZODDIDPARTENZA”; 
SA 

210 INPUT "STAMPANTEn(S/N)D”;P$: 

PRINT 

220 IF P$ = “S" THEN OPEN 4,4:CMD4 
230 PRINT SA;:FOR M = 0 TO 7 
240 A = (PEEK(SA)/16) : PRINT MID$ (HH$,A 
+ 1,1);MID$(HH$,PEEK(SA)-INT(A)*16 
+ 1,1)“D”; 

250 SA = SA + 1:NEXT 

260 IF P$ = “S” THEN PRINT#4,“”;:CL0SE4 

270 GET A$:IF A$ = “” THEN 270 

280 IF A$ = CHR$(13) THEN RETURN 

290 PRINT:GOTO 220 

300 CLR:INPUT “□INDIRIZZODDO 

PARTENZA”;A:A = A — 3:AA = INT(A/256): 
A2 = A —AA*256 

310 INPUT "INDIRIZZOnFINALEnn";B:B = B 
+ 1:BB = INT(B/256):B2 = B - BB*256 
315 INPUT "NOMEnDELnFILEnnn”;N$ 
320 PRINT" □ P□ 44,”AA":P□ 43,”A2 
330 PRINT “aaPn46,"BB":Pn45,”B2: 
PRINT"a aSCRinURA"CHR$(34)N$ 
CHR$(34) 



Prima di avviare questo programma è ne¬ 
cessario immettere una REM alla linea 1, 
seguita dal numero eastto di caratteri per 
contenere il programma in codice macchi¬ 
na (un carattere per byte di codice mac¬ 
china): 

10 PRINT AT 4,9;"M0NIT0R ZX81” 

15 PRINT AT 8,4;“1: —IMMISSIONE CODICE 
MACCHINA” 

20 PRINT AT 10,4;“2:- VISIONE MEMORIA” 

50 LET A$ = INKEYS 

60 IF A$ < “1 ” OR A$ > “2" THEN GOTO 50 
70 CLS 

80 GOSUB 100 + 200‘(VAL AS-1) 

85 CLS 
90 RUN 

100 PRINT AT 21,0;“INDIRIZZO DI 
PARTENZA?” 

105 INPUT SA 
110 INPUT DS 

120 IF DS = “” THEN GOTO 110 
125 IF D$(1) = “$" THEN RETURN 
130 LET S$ = D$(1 TO 2) 

135 SCROLL 
140 FOR N = 1 TO 2 
150 IF S$(N)<“0” OR S$(N) > “F” THEN 
PRINT “INVALID CHARACTER" 

155 IF S$(N)<"0" OR S$(N)>"F” THEN 
GOTO 110 
160 NEXT N 

170 POKE SA, (CODE S$(1)-28)*16 + 

CODE S$(2) — 28 
175 SCROLL 
180 PRINT SA,D$(T0 2) 

190 LET DS = D$(3 TO) 

195 IF LEN D$ = 1 THEN GOTO 110 
200 LET SA = SA +1 
210 GOTO 120 

300 PRINT AT 21,0;“INDIRIZZO DI 
PARTENZA?” 

310 INPUT SA 
320 SCROLL 
330 PRINT SA; 

340 FOR M = 0 TO 7 

350 let H$=-nn" 

360 LET H$(1) = CHR$ (INT (PEEK (SA + M)/ 
16)+ 28) 

370 LET H$(2) = CHR$ (28+PEEK (SA + M) 
— 16*(C0DE H$(1 ) — 28)) 

400 PRINT TAB 7 + 3*M;H$; 

410 NEXT M 
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340 PRiNrsSSSSSSSSPn 

44,”PEEK(44)":PC 43,"PEEK(43) 

350 PRINT"HHPn46,"PEEK(46)“:P045, 
”PEEK(45):PRINT" £ H ESECUZIONE @ ” 

[E 

Per far funzionare la versione per il Com¬ 
modore 64 sul Vie 20, occorre cambiare 
queste linee: 

5 POKE 36879,8:HH$ = "0123456789ABCDE 
P 

10 PRINT “□SSSSHSHE1:- 

□IMMISSIONE CODICE MACCHINA” 

20 PRINT “HH2: —□□□VISIONED 
MEMORIA" 

30 PRINT " H H 3: - □SCRITTURA BYTESO 
SU NASTRO" 

150 POKE SA,C:PRINT !£££££□ 

□□□□□□□□□□□□□□□□OD 

□□□□"SA,D$ 

230 PRINT SA;:F0R M=0 TO 4 


E 


10 CLS 

20 PRINT(« 196,"1:-niMMISSI0NEDC0DICE 
□MACCHINA" 

30 PRINT(« 260,“2: - nVISIONEDMEMORIA" 
40 PRINT'» 324,“3: — □SCRITTURADBYTES 
□SUONASTRO” 

50 A$ = INKEY$:IF A$<“1" OR A$> 

“3" THEN GOTO 50 
60 CLS 

70 ON VAL(A$) GOSUB 200,400,600 
80 GOTO 10 

200 INPUT “INDIRIZZOnDOPARTENZAD"; 
SA 

210 LINE INPUT D$ 

220 IF D$ = “" THEN GOTO 210 

230 IF LEFT$(D$,1) = "#” THEN RETURN 

240 S$ = LEFT$(D$,2) 

250 POKE SA,VAL(“&H" + SS) 

260 PRINTSA,LEFT$(D$,2) 

270 D$ = MID$(D$,3) 

280 SA = SA +1 :G0T0 220 
400 INPUT “INDIRIZZOnDOPARTENZAn”; 
SA 

410 PRINT"STAMPANTEn(S/N)n?” 

420 A$=INKEY$:IF A$ = “” THEN 420 
430 P = 0:IF A$ = “S" THEN P= - 2 
440 PRINT # P,SA; 

450 FOR M=0 TO 7 
460 PRINT #P,‘TT’;RIGHT$('U’ + 
HEX$(PEEK(SA + M)),2); 

470 NEXT:PRINT #P 
480 SA = SA + 8 

490 A$ = INKEY$:IF A$ = ’’” THEN 490 
500 IF A$ = CHR$(13) THEN RETURN 
510 GOTO 440 

600 INPUT "INDIRIZZOnDOPARTENZAn”; 
SA 

610 INPUT "NUMEROnDOBYTESn";N 


620 LINE INPUT“NOMEnDELnFILED”;N$ 
630 CSAVEM N$,SA,SA + N,SA 
640 RETURN 


COME FUNZIONA IL MONITOR 


Quando si esegue un RUN del programma, 
compare un menu che chiede se si vuole 
immettere codice macchina, esaminare la 
memoria o (tranne che sullo ZX81) scrive¬ 
re una porzione di memoria su nastro. De¬ 
siderando immetterre codice macchina (il 
che presuppone l’aver preparato un pro¬ 
gramma in tale codice), si prema Q]. Dopo 
aver fornito l’indirizzo di partenza, e pre¬ 
muto IENTERI o I RETURN I . si inizia l’immis¬ 
sione del codice macchina sotto forma di 
cifre hex da immettere due caratteri per 
volta. 

Si possono immettere quante coppie si 
vogliono prima di premere IENTERI o 
I RETURN I . ma è meglio digitare una linea 
per volta e controllare attentamente le ci¬ 
fre prima di immetterle: è molto più facile 
correggerle quando sono sullo schermo 
che non quando sono già in memoria. Sul 
Commodore , dopo o gni hex di due cifre 
va premuto I RETURN I . 

Si noti che i programmi per lo Spec- 
trum. lo ZX81 e i Commodore ritraduco¬ 
no i numeri hex in decimale prima di de¬ 
positarli in memoria, dal momento che la 
POKE del BASIC, su questi apparecchi, 
non accetta valori hex (si vedano le pagi¬ 
ne 240-247). Tutte queste conversioni, 
apparentemente inutili, consentono inve¬ 
ce al programmatore di lavorare nel for¬ 
mato hex, che è molto più comodo col co¬ 
dice macchina. 

I programmi in codice macchina vanno 
conclusi con un segno # (o con $ sullo 
ZX81), onde tornare al menu. Selezionan¬ 
do l’opzione 2 (visione della memoria), 
viene ancora chiesto un indirizzo di par¬ 
tenza, ma stavolta relativo all’area che si 
vuole leggere. Per esaminare il codice 
macchina appena immesso, questo indi¬ 
rizzo deve essere identico a quello dato 
nell’opzione 1. 

Poi, eccetto che sullo ZX81, viene chie¬ 
sto se si vuole una copia su stampante del 
programma in codice macchina. Rispon¬ 
dendo con [N], il programma visualizza 
l’indirizzo d’inizio, i contenuti di quella lo¬ 
cazione e le successive sette locazioni su 
una linea dello schermo. 

Adesso, premendo un qualsiasi tasto, 
salvo IRETURNI o IENTERI . vengono visualiz¬ 
zate le otto locazioni successive, nello 
stesso formato precedente. In questa ma¬ 
niera si può visualizzare, linea per linea, 
l’intero programma. 

Se si individua un errore, il sistema per 
correggerlo è il seguente: si prema IENTERI 


o I RETURN I . per riportare il programma al 
menu. Si scelga l’opzione 1 e, quando il 
computer chiede l’indirizzo di partenza, si 
immetta quello del byte sbagliato. Se 
un’intera serie è sbagliata, si dia l’indiriz¬ 
zo del primo byte della serie. 

Qundi si immettano i byte corretti, col 
solito procedimento. 

Se di errori ce n’è soltanto uno, lo si può 
correggere anche interrompendo il pro¬ 
gramma monitor e depositando il valore 
appropriato nella locazione interessata, 
mediante una POKE. Si rammenti che sullo 
Spectrum e sul Commodore il numero va 
espresso in decimale. 

Nell’opzione 1, terminate le correzioni, 
si prema IENTERI o IRETURNI . poi si esamini 
di nuovo la memoria per assicurasi che 
stavolta vada bene. 


CONSERVARE LE ROUTINE 


Desiderando conservare il programma 
monitor, occorre un’operazione di SAVE 
distinta da quella per il codice macchina, 
adottando le normali procedure (vedere a 
pagina 23). 

Infatti, l’opzione “Scrittura byte su na¬ 
stro” si limita a conservare le routine in 
codice macchina immesse con questo pro¬ 
gramma. 

Al contrario, sullo ZX81 le routine di 
codice macchina vengono conservate in¬ 
sieme al monitor nel modo usuale. 

Sugli altri apparecchi, premendo [3], il 
programma chiede ancora una volta un 
indirizzo di partenza, che deve corrispon¬ 
dere a quello della routine in codice mac¬ 
china appena immessa, benché si possa 
conservare qualsiasi parte di memoria 
specificandone l’indirizzo di partenza. 

Le versioni di questo programma per lo 
Spectrum, il Dragon e il Tandy chiedono 
quindi la lunghezza in byte del codice 
macchina. Va poi assegnato un nome alla 
routine, in modo che il computer sappia 
identificarla quando, in seguito, la si vuo¬ 
le riutilizzare. 

Si rammenti di azionare i tasti del regi¬ 
stratore, secondo la consueta procedura 
di SAVE. Una volta completata la scrittu¬ 
ra, ricompare il menu. 

La versione del Commodore richiede un 
indirizzo finale, ottenibile sommando a 
quello di partenza il numero di byte del 
programma, oppure preoccupandosi di 
annotarselo durante la revisione della 
memoria (opzione 2). 

Assegnato un nome alla routine, il pro¬ 
gramma visualizza una linea di program¬ 
ma, sullo schermo: si posizioni qui il cur¬ 
sore con I HOME I e si prema I RETURN I tre vol¬ 
te; si passi quindi alla procedura SAVE. 
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Sul Commodore, non è possibile riutiliz¬ 
zare il programma monitor, finché non 
vengono ripristinati i puntatori modifica¬ 
ti dalla procedura di SAVE. Ciò si ottiene 
riportando il cursore all’inizio della linea 
di programma a metà sc hermo e poi pre¬ 
mendo tre volte I RETURN I . Così facendo, si 
depositano i valori originali nei puntatori 
e si riesegue automaticamente il RUN. 


LETTURA DEL CODICE MACCHINA 


Per la routine in codice macchina, con lo 
Spectrum, il Dragon e il Tandy si usa la 
normale procedura LOAD (si veda a pagina 
22), ma se si sta adoperando il program¬ 
ma monitor, occorre premere IBREAKl per 
uscire dal programma. 

Se nel frattempo si è invece spento l’ap¬ 
parecchio o lo si è utilizzato per altri pro¬ 
grammi, si rammenti di ripetere il coman¬ 
do CLEAR, in modo da proteggere il codice 
macchina. 

Con i Commodore non si può usare un 
comando LOAD generico per ricaricare da 
nastro il codice macchina: ciò non garan¬ 
tisce che il codice torni nello stesso luogo 
da cui è stato copiato quando lo si è tra¬ 
sferito su nastro. Il comando LOAD deve 
avere questo formato: 

LOAD “ Routinenamd' ,1,1 

“Nomeroutine” è il nome della routine in 
codice macchina che si vuole caricare e va 
sempre racchiuso tra doppi apici. Il primo 
1 è il numero del dispositivo che corri¬ 
sponde al registratore. Il secondo 1 comu¬ 
nica al Commodore di rimettere il pro¬ 
gramma nella stessa zona di memoria da 
cui è venuto. 

Se si usano dischetti, il suffisso da indi¬ 
care nel comando LOAD è, 8,1. 

Inoltre, se si sono cambitati i puntatori 
del BASIC quando si è scritta e conserva¬ 
ta la routine di codice macchina, occorre 
ora ripristinarli con gli stessi valori. 
Omettendo questa operazione, la routine 
non sarà protetta da eventuali sovrappo¬ 
sizioni da parte del BASIC. 

Con lo ZX81, si può ricaricare da nastro 
il proprio programma in codice macchina 
insieme al monitor nel modo consueto. 


SCROLL ALL INDIETRO 


Per fornire un esempio pratico, il seguen¬ 
te programma è in codice macchina e ser¬ 
ve per ottenere uno scorrimento (scroll) 
dello schermo dall’alto verso il basso, an¬ 
ziché dal basso in alto. Si immetta la rou¬ 
tine usando il programma monitor, ricor¬ 
dando, sullo Spectrum, lo ZX81, il Dra- 
282 gon e il Tandy, di non digitare spazi tra i 
vari numeri. Sui Commodore i numeri si 
immettono uno alla volta. 


21 9F 58 11 BF 58 06 08 
25 15 E5 D5 C5 01 A0 00 
ED B8 06 02 C5 D5 11 00 
F9 19 DI 01 20 00 ED B8 
E5 21 00 F9 19 EB E1 01 
E0 00 ED B8 CI 10 E5 CI 
DI E1 10 D4 21 00 3F 06 
08 C5 24 E5 AF 77 54 5D 
13 01 1F 00 ED B0 E1 CI 

10 EF 21 9F 5A 11 BF 5A 
01 A0 02 ED B8 21 00 58 

11 01 58 3A 8D 5C 77 01 
1F 00 ED B0 C9 # 



01 18 03 2A 0C 40 09 54 
5D 01 F7 02 2A 0C 40 09 
ED B8 2A 0C 40 23 36 00 
54 5D 13 01 1F 00 ED B0 
C9 

Hse 

A9 13 20 D2 FF A9 11 20 
D2 FF A9 9D 20 D2 FF A9 
94 20 D2 FF A9 A0 85 DA 
A9 0D 20 D2 FF 60 # 



8 E 05 E0 A6 84 A7 89 FE 
00 30 88 E0 A6 84 A7 88 
20 8C 04 00 2C F3 30 89 
02 01 8C 06 00 25 E4 39 
# 


ESECUZIONE DEI PROGRAMMI 


Una volta immesso il programma in codi¬ 
ce macchina e dopo essersi assicurati 
(esamindolo in memoria) che non ci siano 
errori, lo si può eseguire. 

Ma, dato che non si tratta di un pro¬ 
gramma BASIC, il comando RUN in que¬ 
sto caso non serve a niente. Occore invece 
un comando specifico. 


Nello Spectrum e nello ZX81 si usa l’i¬ 
struzione USR del BASIC, seguita dall’in¬ 
dirizzo del programma in codice macchi¬ 
na. USR ritorna al BASIC con il valore del 
registro BC, al completamento della rou¬ 
tine in codice macchina. Tale valore non è 
utile in sé, ma indica che il programma è 
stato eseguito. Purtroppo, USR non è un 
comando, ma una funzione e la struttura 
del BASIC Sinclair richiede invece che 
una linea di programma inizi con un co¬ 
mando. Perciò, sullo Spectrum, USR va 
usato in modo simile a questo: 


RANDOMIZE USR 32000 
e sullo ZX81: 

RAND USR 16514 

(Si noti che il tasto IRANDI sullo Spectrum 
genera sullo schermo RANDOMIZE; sullo 
ZX81 il tasto IRANDI genera sullo schermo 
RAND.) In sé, questo comando non ha sen¬ 
so, ma serve ad eseguire la routine in co¬ 
dice macchina. A questo fine, la USR può 
essere preceduta da un qualsiasi comando 
BASIC: per esempio, PRINT USR 32000 vi¬ 
sualizza sullo schermo il valore di BC. 

RANDOMIZE USR 32000 (o RAND USR 
16514) è quello più usato perché evita ef¬ 
fetti collaterali, ma non va usato se il pro¬ 
gramma in codice macchina prevede l’im¬ 
piego di numeri casuali, altrimenti si com¬ 
bina un pasticcio. In questo caso, sullo 
Spectrum si usi: 

LET L = USR 32000 

e sullo ZX81 si usi: 

LET L = USR 16514 

In tal modo alla variabile L viene assegna¬ 
to il valore del registro BC non appena 
completata l’esecuzione della routine in 
codice macchina: non una gran cosa in sé, 
ma semplice da usare, dato che chi ha un 
Sinclair noterà che LET, L, e USR sono tut¬ 
ti sullo stesso tasto. 

Il modo più semplice di eseguire un pro¬ 
gramma in codice macchina su Commodo¬ 
re 64 e Vie 20 è digitare SYS seguito dal¬ 
l’indirizzo d’inizio della routine in codice 
macchina. Se si vogliono però scambiare 
variabili tra il codice macchina e il BASIC 
si può usare la funzione BASIC USR. 

La sintassi usata è: 

A = USR (B) o PRINT USR (B) in modo diretto. 

USR manda il computer alla routine in 
codice macchina che inizia all’indirizzo 
contenuto nelle locazioni 785 e 786 (nel 
consueto formato byte “alto”/byte “bas¬ 
so”). Occorre quindi depositare in tali lo¬ 
cazioni l’indirizzo di partenza della routi¬ 
ne che si vuole eseguire. 

Il valore di B viene passato al program¬ 
ma in codice macchina attraverso il primo 
accumulatore a virgola fluttuante, che va 
dalla locazione 97 alla 102 (97 è l’esponen¬ 
te, da 98 a 101 è la mantissa e 102 riporta 
il segno). La USR ritorna anch’essa al BA¬ 
SIC col contenuto dell’accumulatore a 
virgola fluttuante, al termine della routi¬ 
ne in codice macchina. Questo sistema 
permette di trasferire valori tra il codice 
macchina e il BASIC. 





















10 CODICE MACCHINA 10 


E 


Su Dragon e Tandy ci sono due istruzioni 
per eseguire programmi in codice macchi¬ 
na. C’è il comando EXEC, a cui segue l’indi¬ 
rizzo iniziale della routine in codice mac¬ 
china da eseguire. Per esempio: 

EXEC24000 

esegue la routine che inizia alla locazione 
24.000 decimale. 

D comando USR, invece, permette di 
scambiare variabili tra il programma in 
BASIC e la routine in codice macchina. 

Innanzitutto occorre definire l’inizio 
della routine che interessa con l’istruzio¬ 
ne DEFUSR. Questa va fatta seguire da un 
numero compreso tra 0 e 9, cosicché si 
possano definire fino a dieci routine USR, 
cioè si possano usare fino a dieci subrouti¬ 
ne in codice macchina in ogni programma 
in BASIC. Se DEFUSR non è seguito da un 
numero, per il computer corrisponde a 
DEFUSR0. La sintassi è: 


10 DEFUSR1= 24000 

Si definisce così la routine USR numero 1 
come avente inizio alla locazione 24.000 
decimale. 

Il comando che provoca effettivamente 
l’esecuzione del codice macchina è USR. 
Un piccolo inconveniete della ROM del 
Dragon fa sì che una routine in codice 
macchina vada richiamata da USR seguito 
da |e dal numero precedentemente defini¬ 
to dalla routine. Sul Tandy non serve lo 0. 
La sintassi consueta è: 

P = USR01 (Q)oPRINT USR01 (Q). 


Il comando USR copia il valore della varia¬ 
bile Q nell’accumulatore a virgola flut¬ 
tuante, dal quale può venir ripreso dalla 
routine in codice macchina. 

Al termine di questa, i contenuti del¬ 
l’accumulatore tornano al programma 
BASIC (in questo esempio, nella variabile 
Q). Allo stesso modo, si possono scambia¬ 
re variabili stringa tra il BASIC e il codi¬ 
ce macchina. 
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I computer possono eseguire 
operazioni di logica per molti milioni 
di volte al secondo. Ma la logica 
è anche una parte 
fondamentale di ogni programma... 



Nella programmazione BASIC si usano 
tre tipi di espressioni. Gran parte del la¬ 
voro riguarda espressioni aritmetiche o 
contenenti stringhe, ma è il terzo tipo, le 
espressioni logiche, che spesso svolge fun¬ 
zioni decisionali in un programma. 

Il loro semplice scopo è quello di valuta¬ 
re se qualcosa è ‘vero’ o ‘falso’. Parole e 
simboli del programma, usati a questo fi¬ 
ne, si chiamano operatori (qualcuno li de¬ 
finisce anche connettori o connettivi). 

Nelle espressioni logiche si usano due 
tipi di operatori: operatori relazionali 
(che comprendono simboli matematici co¬ 
me <,> e =) e operatori logici, che in tut¬ 
te le forme di BASIC fanno parte della li¬ 
sta di parole chiave come AND, OR, NOT. 


MAGGIORE. UGUALE. MINORE 


Gli operatori relazionali sono usati nei più 
semplici programmi di BASIC e tramite 
loro i confronti possibili sono: 

A >B ... A è maggiore di B 
A <B ... A è minore di B 
A > = B ... A è maggiore o uguale a B 
A < = B ... A è minore o uguale a B 
A = B ...A è uguale a B 
A < > B ... A è diverso da B 


Li abbiamo sicuramente già visti all’ope¬ 
ra in molti programmi di INPUT o altro¬ 
ve e, anche se si possono usare in aritme¬ 
tica pura, il loro valore in prove condizio¬ 
nali è evidente in connessione con IF ... 
THEN. Un altro esempio è: 

IF A>B THEN PRINT “A È MAGGIORE DI B” 

Il valore di A deve superare quello di B af¬ 
finché il resto della linea sia eseguito. 
Quando, invece, il valore di A rimane al di 
sotto di quello di B, il programma passa 
semplicemente alla linea di programma 
successiva. Si capisce come ciò renda pos¬ 
sibile qualche diramazione condizionale: 
se una serie di valori è vera, il program¬ 
ma fa una cosa; se è vera un’altra serie di 
valori, allora fa qualcos’altro. 

Gli operatori relazionali non sono limi¬ 
tati solo a valori numerici, ma si usano an¬ 
che nel confronto tra stringhe, purché at¬ 
tuato con attenzione onde evitare risulta¬ 
ti incongruenti. Il primo punto da ricorda¬ 
re è che il confronto si ferntì sempre al 
numero di caratteri della piùjjbreve delle 
due stringhe a confronto: peftui, se una 


stringa contiene undici caratteri e l’altra 
sette, solo i primi sette della stringa più 
lunga sono confrontati con i corrispon¬ 
denti nella stringa più breve. 

Il confronto avviene, in realtà, un ca¬ 
rattere alla volta, da sinistra a destra ed è 
questo fatto che può generare strani ri¬ 
sultati. In un cofronto numerico la propo¬ 
sizione 5>10 è ovviamente falsa, ma in un 
confronto di stringhe può esserci una pro¬ 
posizione in cui due variabili sono confro- 
tate nella forma A$>B$. Se A$ = “5" e 
B$ = “10”, il computer prima confronta il 
‘carattere’ a sinistra da ogni lato, 5 e 1 e 
poi si ferma, ritenendo che non ci sia altro 
da confrontare. 

Erroneamente, si ottiene una condizio¬ 
ne ‘vera’, poiché 5 è maggiore di 1, ma il 
computer ignora l’importanza delle cifre 
restanti nella stringa più lungha. Atten¬ 
zione a questi tipo di errori! 

In stringhe di caratteri alfabetici, le sin¬ 
gole lettere hanno il seguente ordine cre¬ 
scente: “A'’<“B , ’<“C’’<“D , ’ e così via. Ma oc¬ 
corre fare ancora attenzione, perché il 
computer non riconosce realmente il si¬ 
gnificato dei caratteri: si limita a confron¬ 
tare i codici dei caratteri (in un’altra le- 


























































20 PROGRAMMAZIONE BASIC 20 


■ 

OPERATORI RELAZIONALI 
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DECIDERE SE QUALCOSA È 
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MAGGIORE, MINORE 
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LE TAVOLE DELLA VERITÀ 


0 UGUALE A 

■ 

USO DI EOR SUGLI ACORN 


QUALCOS’ALTRO 

■ 

OPERAZIONI SUI BIT 
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proprio computer: 


PRINT 6>5, 5>7 


L’espressione a sinistra è vera, quella a 
destra falsa, per cui sullo schermo si vi¬ 
sualizzerà un -1 (o 1) e uno 0. 

Gli interi che esprimono il risultato si 
possono direttamente usare nei program¬ 
mi, per eseguire calcoli. Attenzione però 
alle divisioni: viene segnalato un errore 
se si tenta di dividere qualcosa per 0. 


Le parole chiave AND, OR e NOT, chiamate 
operatori logici, estendono la portata de¬ 
cisionale di IF ... THEN (vedere a pagina 
33). Per esempio, se (IF) la condizione 1 è 
vera e (AND) è vera la condizione 2, allora 
(THEN) esegui una certa azione. In modo 
analogo, vengono prese decisioni anche 
più complesse. Questi operatori, detti an¬ 
che Booleani (dal matematico Boole), si 
possono usare sia in modo diretto che nei 
programmi, per confrontare numeri 
stringhe o per ottenere un “valore di 
tà” di alcune (spesso complesse) 
condizionali. 


In pratica, consentono di semplificare 
espressioni condizionali, che sarebbero al¬ 
trimenti un vero intrico di istruzioni IF ... 
THEN. 


L’operatore AND si può considerare con lo 
stesso significato della congiunzione ‘e’. 
In una espressione come: 

IF V>0 AND V<100 PRINT "VALIDO" 

il messaggio compare soltanto se V è mag¬ 
giore di 0 e minore di 100. 

In un programma si può usare una linea 
come questa: 


990 OKAY = 1 AND MESE >5 AND MESE< 
10 AND ANNO >1900 AND ANNO <2001 


990 OKAY = — 1 AND MESE >5 AND MESE 
< 10 AND ANNO > 1900 AND ANNO < 
2001 


Questa linea può esser utile per 
re se una particolare data cadi 
nel ventesimo secolo. 


Introlla- 

ì’estate 


OPERATORI LOGICI 


L'USO DI AND 


hanno un significato anche gli spazi e gli 
altri simboli diversi dalle lettere. 

Questo fatto può causare errori mador¬ 
nali in programmi che debbano ordinare 
alfabeticamente una serie di stringhe. 

Se due stringhe contengono una stessa 
seguenza di caratteri, allora viene consi¬ 
derata numericamente più grande la 
stringa più lunga. Però, una stringa più 
breve viene considerata più grande in 
un’espressione del tipo “ABD">“ABCD” per¬ 
ché il confronto cessa alla prima differen¬ 
za, ossia di fronte ai valori dei codici di 
“D” e “C”. In pratica, il criterio alfabetico è 
molto simile a quello adottato nei diziona¬ 
ri o negli indici, nei quali “anno” viene 
prima di “annotare”, ma dopo “anacroni- 
smo . 


VERO 0 FALSO 


Il risultato di un qualsiasi confronto è un 
numero intero: il risultato è 0 se il con¬ 
fronto è falso e (a seconda dell’apparec¬ 
chio) -1 o 1 se è vero. Si immetta il se¬ 
guente comando in modo diretto (ossia 
senza numero di linea), per controllare sul 
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Qui AND viene usata in quattro verifi¬ 
che, ognuna delle quali deve essere vera 
affinché rimanga vero anche OKAY. In 
questa “prova di verità”, la variabile OKAY 
è dapprima posta a ‘vero’ (a -1, ma sul 
Sinclair a 1). Poi si verifica che il MESE sia 
compreso tra 6 e 9 e TANNO tra il 1901 e il 
2000. In altre parole, se tutte le condizioni 
si avverano, l’espressione ha un valore 
vero. In sostanza, la linea di programma 
si traduce in: 

990 0KAY= -1 ANO-1 AND -1 AND 
-1 AND —1 

(sul Sinclair, 1 invece di -1). 

Basta scrivere PRINT OKAY per controllare 
che il risultato sia — 1, ossia “vero”. 


L'USO DI OR 


OR corrisponde alla ‘o’ disgiuntiva del lin¬ 
guaggio comune, anche se non del tutto. 
Osserviamo come viene usata in una linea 
di programma dove si confrontano i valo¬ 
ri di una variabile: 

IF V = 8 OR V = 10 PRINT “OKAY” 

Il messaggio compare se V è 8 oppure 10. 

OR è di grande utilità nel controllae la 
validità di un immissione da tastiera: se, 
per esempio, viene chiesta l’immissione di 
un’età, può accadere che si digiti -10 o 
999. Si può aggirare il problema così: 

10 INPUT A 

20 IF A<1 OR A> 120 THEN PRINT "NON 
È POSSIBILE': GOTO 10 


L'USO DI NOT 


Il terzo operatore logico comunemente 
usato è NOT, leggermente diverso dagli al¬ 
tri, in quanto si applica soltanto all’e¬ 
spressione numerica o logica che segue: 
mentre AND e OR confrontano espressioni 
sui due lati, NOT opera solo su un singolo 
valore. NOT si può usare in una linea di 
programma come: 

IF NOT (A >10) THEN 999 

Il che equivale a dire “se il valore A non è 
maggiore di 10, si passi alla linea 999”. 

La funzione logica di NOT è la conversio¬ 
ne di una condizione vera in una falsa, e 
viceversa. Si può usare NOT come commu¬ 
tatore o per ribaltare il valore vero/falso 
risultante da un’altra verifica. 


La tavola si legge interpretando la linea 1 
come: “Se A è vero e B è vero, allora C è 
vero”. La linea 2 significa “Se A è vero e 
B è falso, allora C è falso”. La linea 3: “Se 
A è falso e B è vero, C è falso”. La linea 4: 
“Se A e B sono entrambi falsi, allora C è 
falso”. La tavola di verità per OR è: 

ABC 


-1 

-1 

(linea 1) 

0 

-1 

(linea 2) 

-1 

-1 

(linea 3) 

0 

0 

(linea 4) 


La prima linea si legge: “Se A è vero e B è 
vero, allora C è vero”. Le linee 2 e 3 pos¬ 
sono essere entrambe interpretate come: 
“Se uno soltanto tra A o B è vero, allora C 
è vero”. La linea 4: “Se A e B sono en¬ 
trambi falsi, allora C è falso”. 


LE TAVOLE DELLA VERITÀ' 


Occupandosi di operatori logici, ci si trova 
spesso a contatto con le “tavole della veri¬ 
tà”. Queste rappresentano, visivamente e 
sinteticamente, cosa accade quando i va¬ 
lori vero ( -1 o 1) e falso (0) sono messi in 


IN PRATICA 


Ecco infine un programma che usa AND, 
OR e NOT. Il programma mostra come sia 
possibile suddividere in categorie i candi¬ 
dati a un concorso: 


relazione da AND o OR. Non è necessaria 10 
una tavola per NOT, in quanto i valori sono 20 
semplicemente invertiti. 30 

Le tavole di verità possono prendere 40 
forme diverse. Una tipica per AND è: 50 


B 


-1 

0 

0 

0 


(linea 1) 
(linea 2) 
(linea 3) 
(linea 4) 


60 


70 


INPUT “ANNI"; ETÀ 
INPUT “PUNTEGGIO”; GRAD 
0LTR18 = (ETÀ > = 18) 

QUAL = (GRAD > =70) 

IF NOT 0LTR18 AND NOT QUAL THEN 
PRINT "NON IDONEO” 

IF (NOT 0LTR18 AND QUAL) OR (0LTR18 
AND NOT QUAL) THEN PRINT “SECONDA 
CATEGORIA" 

IF 0LTR18 AND QUAL THEN PRINT 
"PRIMA CATEGORIA" 
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Supponiamo di immettere 20 per l’età e 
60 per il punteggio: allora (ETÀ>18) è vero, 
ma (GRAD) = 70) è falso. Per cui il candida¬ 
to è 0LTR18, ma non QUALificato. Il com¬ 
puter incontra questa serie di condizioni 
alla linea 60 e visualizza “SECONDA CATE¬ 
GORIA”. Il programma potrebbe essere 
ampliato, per verificare un più ampio nu¬ 
mero di condizioni, per tener conto di al¬ 
tri requisiti necessari. 

(Si noti che su alcuni Micro BBC, i punti 
e virgola alle linee 10 e 20 vanno sostituiti 
con virgole.) 



L'USO DI EOR 


Come gli altri operatori, EOR può anche 
essere usato con valori numerici, in parti¬ 
colare per commutare alternativamente 
una condizione tra vero e falso. Supponia¬ 
mo di avere una linea come: 

S = S EOR 1 

in un ciclo e che, inizialmente, si sia posto 
S uguale a 1. Al primo giro S diventa 
uguale a 0, al secondo a 1, al terzo a 0 e 
così via. Un simile “interruttore” logico è 
utile in più occasioni. Per esempio, COLOR 
S scambierà COLOR 0 con 1; PRINT CHR$ 
224 + S scambierà il carattere 224 con il 
225, il che potrebbe servire in una sequen¬ 
za di animazione. 


SS XE 


l t j< 


tari 


sempio. 

Per prima cosa le espressioni (375 e 47) 
sono convertite in interi a due byte. Ecco¬ 
ne la forma binaria: 

Binario a due byte di 375: 
0000000101110111 
Binario a due byte di 47: 
0000000000101111 

La AND confronta ad uno ad uno i 16 bit, 
producendo un 1 solo se si trova un 1 nella 
medesima posizione di ciascun numero bi¬ 
nario. 

Partendo da destra, solo i bit zero, uno, 
due e cinque soddisfano la condizione, 
producendo così il numero binario 
0000000000100111. Convertendo questo 
in decimale, si ottiene il valore 39: ecco 



I computer Acom possiedono un quarto 
operatore, chiamato EOR (sigla che stà per 
OR Esclusivo: si dà cioè un caso o un al¬ 
tro, ma non i due assieme). Può essere 
utile in espressioni come questa: 

IF bus< = 2 EOR aut< =6 THEN PRINT 
“PUOI SALIRE SUL TRAGHETTO” 

Con EOR evitiamo che il traghetto si so¬ 
vraccarichi sia di pullman che di auto. 

Ecco una tavola di verità per EOR: 
ABC 


(linea 1) 
(linea 2) 
(linea 3) 
(linea 4) 


0 à (linea 


L’uso degli operatori logici non si limita 
alle istruzioni IF ... THEN viste più sopra, 
ma può comprendere anche alcuni tipi di 
operazioni numeriche. Probabilmente ab¬ 
biamo già incontro simili operazioni, sen¬ 
za comprenderle del tutto. In effetti, non 
sempre funzionano nel modo che è natu¬ 
rale aspettarsi. Si immetta questo coman¬ 
do in modo diretto: 

PRINT 375 AND 47 

Ci si aspetterebbe di ottenere come risul¬ 
tato 422, o semmai 37547, invece si ottie¬ 
ne 39. 

Per spiegarne il motivo occorre appron- 
fondire un poco il funzionamento del com¬ 
puter e in particolare come vengano trat¬ 
tate le due espressioni ai lati di AND nell’e¬ 


dunque il risultato di 375 AND 47. 


Ora si digiti questo in modo diretto: 


PRINT 375 OR 47 


Come si ottiene il risultato 378? L’opera¬ 
tore OR ha la proprietà di far porre a 1 il 
bit del risultato (binario) se uno dei due 
bit corrispondenti nei due operandi vale 
1. Torniamo alla forma minaria a due by¬ 
te dei numeri: i bit 8,6,5,4,3,2,1 e 0 hanno 
tutti un 1 in almeno uno dei due valori. Il 
numero binario risultante è dunque 
0000000101111111, il quale in decimale 
vale 383. 

Il risultato di un’operazione OR può es¬ 
sere identico anche in espressioni diver¬ 
se. Per esempio, anche PRINT 375 
come risultato 383. Per contr 
convertano i numeri in binario. 


OPERAZIONI NUMERICHE 
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Il valore -1 (memorizzato, per inciso, 
come FFFFFFFF hex, una sequenza di 
bit tutti posti a 1) resta inalterato quando 
OR lo pone in relazione con qualsiasi nu¬ 
mero valido. Si provi questo: 

PRINT -1 OR 375 
e il risultato è -1. 

Esaminiamo adesso un’applicazione nu¬ 
merica di NOT: 

PRINT NOT 10.75, NOT -11 
I risultati sono —11 e 10. L’operatore 
NOT, in pratica, aggiunge 1 al numero su 
cui opera, cambiandone il segno. Si noti 
che il numero a virgola fluttuante è arro¬ 
tondato all’interno minore e che il valore 
reale si può stimare con X = - (X +1). In 
effetti, il valore è convertito in un intero 
di quattro byte, nel quale vengono inver¬ 
titi tutti i bit. 


Gli operatori logici sui Sinclair non opera¬ 
no confronti di numeri bit per bit perciò si 
usano di rado in operazioni numeriche. 


OPERAZIONI SUI BIT 


Sui computer Commodore, le operazioni 
logiche sui singoli bit hanno una funzione 
in più, poiché servono anche per il con¬ 
trollo di particolari attività del computer. 
Sui Commodore esistono alcune locazioni 
di memoria riservate, il cui valore con¬ 
trolla svariate funzioni: per selezionarne 
una, occorre una particolare sequenza di 
bit, tale da influire su alcuni dei bit, la¬ 
sciando gli altri invariati. Per controllare 


i contenuti di una locazione di memoria si 
usano i comandi POKE e PEEK (vedere a pa¬ 
gina 246). Un comando tipico può essere: 

POKE 1, PEEK (1) AND 251 

che, sul Commodore 64, “spegne” il bit 3 
della locazione di memoria 1. PEEK (1) dà 
55 decimale ed ecco come opera la relazio¬ 
ne AND: 

Valore 55: 00110111 
Valore 251: 11111011 

La AND dà: 00110011 ( = 51). Confrontan¬ 
do la sequenza di bit del valore 55 con 
quello di 51 (nuovo valore PEEK della loca¬ 
zione 1), si comprende perché il bit 2 (il 
terzo da destra) viene cambiato in 0, ossia 
“spento”. 

Con OR si può ripristinare la situazione 
precedente: 

POKE 1, PEEK (1) OR 4 

L’unico 1 che compare nella forma bina¬ 
ria di 4 (00000100) dà 00110111, ossia il 
valore di PEEK originario, cioè 55. 

Può sembrare una fatica sproporziona¬ 
ta, quando in molti casi si potrebbe diret¬ 
tamente depositare un valore con una PO¬ 
KE, senza ricorrere agli operatori logici. 
In questo caso, però, c’è il rischio di modi¬ 
ficare il valore acceso/spento degli altri 
bit. Con OR basta indicare quale bit accen¬ 
dere (ossia porre a 1) e nient’altro viene 
alterato nella locazione di memoria. 

AND serve invece a “spegnere” uno o 
più bit, semplicemente sottraendo il valo¬ 
re cumulativo di tutti i bit da spegnere da 
255. Ad esempio, per spegnere i bit 0 e 2, 


C’è un limite alla dimensione dei 
numeri da usare con AND e OR? 

Nelle operazioni AND e OR, il 
Commodore 64, il Vie 20, il Dragon 
e il Tandy non possono usare numeri 
che superino il campo tra -32768 e 
+ 32767. Altrimenti, i Commodore 
segnalano un “errore di quantità”, 
mentre i Dragon e i Tandy un 
“errore di funzione”. Gli Acorn 
accettano numeri fino a quattro byte, 
da — 65536 2 /2 a +65536 2 /2 -1, 
quindi ogni operazione logica 
concepibile dovrebbe restare nel 
campo di validità. Sullo Spectrum^ 
non si possono operare AND e 
OR su valori numerici. 


che corrispondono a 5 decimale, si usa 
AND 250. 

Per ripristinarne il valore originario si 
usa OR 5. Questo tipo di procedura viene 
talvolta indicato con l’espr 
a di bit. La differen: 
nel fatto che la POKI 
uire sui restanti vi 
mentre la “maschi 
dtanto su quelli dei 
tori logici non veni 


scherat 
le consi 
re può 
locazio 
tervien 
altri op 
questi 


none ma- 
principa- 
i un valo¬ 
ri di una 
tura” in- 
erati. Gli 
io usati a 
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Byte, definizione 114 


c 


Campi 

Calcolatore, programma 
di conversione 
Caratteri nella grafica, 

Dragon, Tandy 

Carro armato, 

creazione e controllo 

Carta per stampanti 
Casa, disegno di una 
Acom 

Commodore Si 

Cassette, registratori a 
Castello, disegno di un 
Dragon, Tandy 
Cerchio, disegno di un 
CHR %, Dragon, Tandy 
CIRCLE 
CLS, spiegazione 
CODE, Spectrum 
Codice Macchina 
architettura della macchina 
esadecimali 
immissione del 
linguaggi di basso livello 
mappe di memoria 
nei giochi (grafica) 
numeri binari 
numeri negativi 
numeri nonari 
programmi monitor 
ROM e RAM 
un drago in 
vantaggi del 
velocizzare i giochi 
COLOUR 
Compilatori 


46,75 

112- 113 

191-192 

11-15 

228 

107- 108 

108- 109 

25 

108 

255-256 

26-27 

86- 91 
27 

8 

236-239 

156-160 

276-283 

65-67 

208-215 

38-45 

113- 116 
179-183 
111-112 
276-283 
208-215 

88-83 

66 

8-15 

87- 90 
66 


Complemento a due 

179-183 

Contatempo, un semplice 

176-177 

Cursore, definizione codici di 

7 

controllo, 


Commodore Si, Vie SO 

123 

COS, funzione 

250-256 

CPU 

236-239 

D 


Dadi, lancio di 

64 

DATA 

104-109 

codice macchina 

67 

istruzione BASIC 8-14,40-45 

nella grafica 

107-109 

Database 

275 

Decimali 

110 

conversione da binario 

38,42 

frazioni in binario 

114 

DEFPROC, Acom 

64 

Diagrammi di flusso 

173-178 

DIM, Dragon, Tandy 

41 

Dimensionamento 


delle matrici 

152-153 

Disegno sullo schermo 

132-133 

DRAW 

85-91 

E 


Effetti sonori 

230-235 

Elicottero, creazione di un 

81 

Ellissi, disegno di 

256 

ENDPROC, Acom 

64 

EOR,Acom 

287-288 

Errore, cause di 

36 

Esadecimali 38,42, 45.156-160 

ESC APE, Acom 

4 

F 


File, scrittura e lettura di 

77 

Flow chart 

173-178 

FOR...NEXT, cicli 

16-21 

Formattamento 


dello schermo 

117-123 


G 


Giochi 

alieni e missili 144-151 

animazione 26-32 

avventure 264-268 

bombardamento 161-167 

campo di mine 97-103 

controllo del movimento 54-55, 57-59 
caratteri in movimento 54-59 

contapunti e 

contatempo 69-73,97-103 

effetti sonori 230-235 

esplosione, grafica per 161-167 

“fruit machine” 36 

indovinelli 3-5 


labirinti 68-74,193-200,230-235 
sottoprogrammi 8-15 

stazione spaziale 144-151 

GET, Commodore 6i 55,132-134 

GET$, Acom 55-57,58,103,132-134 
GET, Commodore 6i 135 

Golf, disegno di un campo da 
Acom, Spectrum 184-191 

GOSUB 62-64 

GOTO 18-21,60-62 

Gradi e radianti, conversione 250-251 

Grafica 

bassa risoluzione 26-32 

caratteri grafici 38-45 

carro armato con UDG 10-15 

creazione di UDG 8-15 

dipingere coi numeri 19 

disegnare al computer 107-109 

drago sputafuoco 80-83 

esplosioni, grafica per 161-167 

grafica più sofisticata 184-192 

rana con UDG 10-15 

ricami e modelli 21 

SINeCOS 250-256 

tramonto al computer 20 


uso di PLOT, DRAW, LINE, 
CIRCLE E PAINT 


Acom 88-90 

Commodore 6i 87-88 

Dragon 90-91 

Spectrum 85-86 

Grafici, programma Acom 64 

Griglie per UDG 8-11 

H 

HIRES, Commodore Si 87 

I 

IF...THEN 3,33-37 

IF...THEN...ELSE 37 

IF...THEN...GOTO 36,54 

INK, Spectrum 86 

INKEY, Acom 28-29,103,134-135 
INKEY$ 54-55,132-135 

INPUT, 

istruzione 3-5,117-122,129-135 

INSTR, funzione 206 

J 

Joystick 220-224 

L 

Labirinti, 

programmi per 68-75,193-200 
LEFT$, funzione 202-207 

LEN, funzione 202-207 

Lettere a) computer 124-128 

Linguaggi per computer 65 

Assembly 66-67 

BASIC 65 

vedere: Codice Macchina 
LINE, Dragon, Tandy 88-91 

LOAD, comando 22-25 

M 

Margherita, stampanti a 227 

Matrice di punti, stampanti a 226-277 
Matrici bidimensionali 269-275 
Memoria 208-215 

Menu, uso di 46-47 

Minuscole, per il Dragon e Tandy 142 
Missili, lancio di 55-58 

MID$, Acom 202-207 

MOVE, Acom 71,88-90 

Movimento 

MULTI, Commodore Si 87 


N 


NEW 

10-15,23 

Numeri 


binari negativi 

180-183 

casuali 

2-7 

dipingere coi 

18 

nonari 

111 

NOT, operatore logico 

286-288 

0 


Opcode 

67 

Operatori logici 

35,284-288 

Orologio interno 

69-73 

OR, operatore logico 

35-36, 286-288 


P 


PAPER, Spectrum 

86 

Parametri 

64 

Parentesi, uso delle 

35 

Password, programma per 

133 

PAUSE 


Commodore 6i 

88 

Spectrum 

101,108 

Pause nei programmi 

17 

PEEK 59,101, 

, 204-247 

Periferiche, 


registratori a cassette 

22-25 

joystick 

220-224 

stampanti 

225-229 

Pixel 

84 

PLAY, Dragon, Tandy 73,234-235 


PLOT 88-89 

PMODE, Dragon, Tandy 12,90 

POINT, Acom 71 

POKE 101,108-109,240-247 

Posizionamento del testo 117-123 
Pressione dei tasti 54-55 

PRINT 26-32,117-123 

PROCedure, Acom 64 

Programmazione 

strutturata 173-178,216-219 

PSET, Dragon, Tandy 13,90-91 

Punteggiatura 

nelle PRINT 119-123 

Punteggio 97,100-101 

R 

RAM 25,44,46,208-215 

Rana, creazione di una 10-15 

RANDOMIZE 2 

READ 40-44,104-109 

REC, Commodore Si 87 

Record (elementi di file) 75-77 

Registratori a cassette 22-25 

REPEAT...UNTIL, Acom 36 

RESTORE 106-107 

RETURN, istruzione 62 

RIGHT$ 202-207 

Risoluzione grafica 84 

RND, funzione 2-7 

ROM, grafica 26, 32,107-109 

Rubrica, programma per 105 

RVS , Commodore 6i 31 

s 

Satelliti, creazione di 
Dragon 26-27 

SAVE 22-25 

Scenario innevato, 

Commodore 6i 186-188 

SCREEN, Dragon, Tandy 40 

Scroti all'indietro del video 282-283 
Simboli aritmetici 6 

Simon’s BASIC, Commodore Si 87-88 
SIN, funzione 250-256 

SOUND, 

Acom, Dragon, Tandy 233-235 
Spazi, uso degli, Commodore 122 
Sprite, Commodore Si 14,15-168-172 
Stack, spiegazione 237-239 

Stampante, scelta della 225-229 
STEP 17-21 

STOP, Spectrum, ZXS1 4,64 

Stringhe 

funzioni per 201-207 

nulle 96 

variabili alfanumeriche 4-5,95-96 
STRINGS 98-205 

Subroutine 62-63 

T 

TAB 117-122 

Tabelle di moltiplicazione 5-7 

Teletext, grafica, BBC 28 

Temporizzazione 97,101-103 

u 

Uccello in volo, sprite, 

Commodore Si 168-172 

UDG 

colorati, Dragon, Tandy 248-249 
creazione di UDG 38-45 

DATA per UDG 45 

definizione 8-15,40,44 

griglie per UDG 8-11 

V 

VAL, Commodore 6i 101 

Variabili 3-5,92-96,104-108 

VDU.Acom 28-29,70,99 

Verifica dei programmi 
registrati 24-25 

VERIFY, comando 24 

VIC, chip grafico, 

Commodore Si 172 








O La prima di una serie di puntate 
dedicate allo sviluppo di un gioco 
d’avventura completo: LA MAPPA DI 
UN’AVVENTURA. 

D Impariamo tutto sui CODICI ASCII: 
cosa sono, come usarli efficacemente nei 
programmi. 

O Essere abili nell’uso della tastiera è 
un requisito importante anche per chi ha 
a che fare con la programmazione: ecco 
un programma di DATTILOGRAFIA AL 
COMPUTER. 

O Impariamo le basi del LINGUAGGIO 
ASSEMBLY e come convertirlo in codice 
macchina. 

O Le funzioni trigonometriche SIN e 
COS permettono di ottenere magnifici 
effetti grafici. 














